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* * 
* BOMBER * 


Un semplice ma divertente gioco per il vostro computer. Dovrete 
atterrare con il vostro aereo sulla città, ma prima di far ciò do¬ 
vrete distruggere tutti i grattacieli per creare una pista. Atten¬ 
zione ai grattacieli troppo alti! 


1 REM **M#**#**##**#******##* 

2 REM * BOMBER * 

3 REM * DMR SOFTWflRE « 

4 REM ************************ 

3 «>49331 
10 >49331 

20 READ R : IF fl— 1THEN 30 
30 POKEI , fl : >1*1 ; C3OTO20 

40 DATA32/241,183,134,87,32,241 

41 DRTR183,134,88,224,40,176,6 

42 DATA163,87,201,26,144,3,76 

43 DHTR72,178,32,102,229, 163,87 

44 DATA240,9,169,17,32,22,231 
43 DATR198,87,208,247,163,88,248 

46 DRTR9,169,29,32,22,231,198 

47 DRTR88,208,247,32,233,174,76,160,170,,-l 
30 GOSUB3000 

100 REM SCHERMO , „ 

110 POKE33280,0 : P0KE33281,14 ; PRINT HIT 
120 FORI-1T03BSTEP2 

122 X»INT<RND<l)#19+4> :SVSflT,X-l, I, "In 
130 F0RC-XT023 
133 SVSRT, C, I, " Wl P 1 
140 NEXT 
153 NEXT 
160 PRINT"a* 

170 FOR>1TQ20 
180 FORX-0TO38STEP.5 

182 IFPEEK<1024+X+3.5+40*1><>32THEN GOSUB2000 
190 SVS RT,I,X,"« v ws" 

193 GET fl* : IF ftf*"t"THENGOSUB1000 
200 IF S*1THENSVSRT,V,Z,"■H" : V»V+1 : SVSRT.V-2.Z. 

300 NEXT ^ SVSRT,I,X+.3," " 

330 SVSRT?ii?i! "*K X RTTERRRGGIO COMPIUTO PERFETTAMENTE“ : END 
1000 IFS-1THEN RETURN 

2000 P0KE33281,1 : FORT*1TO10 : NEXT:P0KE33281,14 : FORZAIT023 : SVSRT,Z,X, "W 4r." 

2003 SVSRT,Z-l,X," 

2003 NEXT : SVSRT, Z-l, X, " rXW 

2010 SVS RT,12,15,"«GAME OVER" : END 

3000 PRINT"IT : POKE53280,0 :P0KE33281,0 

3 I 20 PRINT"ÌSo P SCOPO EGIOCO E' FRR ATTERRARE L'AEREO CHE VOLR SULLO SCHERMO" 

5022 PRINT"M B ER FRR CIO PERO', SI DOVRANNO ABBRTTERETUTTI 1 GRATTACELI PRESENTI 

5023 PRINT"USRNDO LE BOMBE " ^ 

3030 PRINT"MHPER BUTTARE LE BOMBE PREMERE 't' H 
3053 PRINT" SPREMI RETURN PER INIZIARE": INPUT fl* 

3038 RETURN 


IFV-23THENS-0 


READV. 




* GENERATORE * 

* ISTOGRAMMI * 

* PER MPSS01 * 
*************** 


Il programma permette la creazione di istogrammi con la stampante 
MPS 801. La routine può essere utilizzata con programmi di statisti 
ca o altri che necessitano di una rappresentazione iin scala. Trove 
rete nel listato le istruzioni per l’impiego. 


9 REM ********************** 

10 REM *CREAZIQNE ISTOGRAMMI* 

11 REM *SU STAMPANTE MPS-801* 

20 REM * UTILITY * 

22 REM * BY * 

23 REM * DMR SOFTWARE * 

24 REM ********************** 

100 REM CARATTERI GRAFICI PRINTER 
110 DATA 240/152; 148/149;244; 140 ; 252 
120 FOR I-1T07 

123 READ CLA*-Ai+CHR*CQ) 

130 NEXT I 

135 DATA235,128, 128,128,255,128,253 

140 FOR I-1T07 

145 READ Q:B*-B*+CHR*(Q) 

150 NEXT I 

151 DATR128,128,128,128,128,128,128 
132 FOR I-1T07 

153 READ Q:C*"C*4-CHR*<Q) 

154 NEXT I 

153 DATA255,129,129,129,128,128,129 
160 FOR I-1T07 . 

165 READ Q:D$-D*+CHR*CQ> 

170 NEXT I 
200 PRINT'^r 

210 PRINT"NUMERO ELEMENTI DA CONFRONTARE" 

220 INPUT"VRRIABILE*N" ì N 
222 INPUT "ESTENSIONE"JE 
230 DIM P<E,N> 

232 FORI"0TOE : P< I,8)"3 ; NEXT 
240 F0RI-1T0N 
230 READV 

253 P<<E+1>-V, D^V-V-l 

260 FOR C-<E+1) -VTOE 

270 P<C,I>-1 

280 NEXT C 

290 NEXT I 

300 0PEN2,4 

1000 FORI-0TOE 

1005 FORC-0TON 

1008 X»P<I,C> 

1010 IF X*3THEN PRINT#2,CHR*<8)D*;CHR$<0) C»; 

1011 IF X-1THEN PRINT#2,CHR$< 8)Bf,CHR$<B) C*; 

1012 IF X-2THEN PRINT42,CHR*<8?A*;CHR*<8? C»; 
1015 IF X-0THEN PRINT#2,CHR*<8)C»;C»; 

1022 NEXT C 

1050 PRINT42,CHR$<8) 

1030 NEXT I 
5000 DATA16,2 
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5010 REM ********###*#*******#*####* 

5011 REM * SPIEGAZIONI * 


* 


5012 REM ***W#***«l«*«*«*#**ltl****««*» 

5013 REM 

5014 REM IL PROGRAMMA PERMETTE DI PRODURRE ISTOGRAMMI VERTICALI 

5015 REM LE VARIABILI FONDAMENTALI SONO 2 

5016 REM N=RAPPRESENTA IL NUMERO DEGLI ELEMENTI 

5017 REM DA RAPPRESENTARE 

5018 REM E-RRPPRESENTA IL FORMATO DELLA RAPPRESENTAIONE 

5019 REM ES: DANDO ALLA VAR.E IL VALORE 10 IL DATO 

5020 REM MASSIMO DA RAPPRESENTARE ,IN SCALA, POTRÀ" 

5021 REM AVERE UN VALORE MASSIMO DI 10 MENTRE IL MINIMO 

5022 REM SARA" UGUALE A 0 

5023 REM QUINDI SI DOVRÀ" FARE ATTENZIONE ALLA SCALA 

5024 REM DA USARE. 

5025 REM IL PROGRAMMA GIRA GIÀ' SOTTO FORMA DI ESEMPIO : 

5026 REM PER UNA CORRETTA PROVA DARE A "N" UN VALORE 

5027 REM COMPRESO TRA 0 E 20 E AD "E"UN VALORE NON 

5028 REM INFERIORE A 20 

5829 REM I DATI CHE VENGONO VISUALIZZATI SONO INSERITI 

5030 REM NELLA DATA ALLA RIGA 5000 MA LOGICAMENTE 

5031 REM POTRANNO ESSERE MEMORIZZATI SOTTO QUALSIASI FORMA. 

5032 REM LA 250< ORA CONTIENE READ V) 

5033 REM RICORDARE DI ASSOCIARE SEMPRE IL DRTQ LETTO 

5034 REM ALLA VARIABILE V 

5035 REM ESEMPI• 

5036 REM READ 

5037 REM V«G<2,3) 

5038 REM INPUT X: V-X 

5039 REM 

5S40 REM SI RIPORTA UN ESEMPIO DI STAMPA 
5042 REM CON N»18 ED E“20 


READY, 
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* TRADUTTORE * 

* MORSE * 

} * * 

Un interessante programma per tradurre frasi in italiano in codice 
Morse. 


10 REM TRADUTTORE AUDIO-VISIVO MORSE 
12 REM ###DMR SOFTWARE### 

20 FRINT"UT : PQKE53230,0 :PQKE53281,0 
23 DIM F$O00):DIMT$C100) 

30 PRINTCHR*<14) 

33 PRINT'SL PROGRAMMA CONSENTE DI TRADURRE IN ALFABETO \T-* _ FRASI SCRITTE"; 

36 PRINT” IN GALIANO" 

37 PRINT"ILA TRADUZIONE VERRÀ' VISUALIZZATA A SCELTA 0 SUL VIDEO 0 SU"; 

38 PRINT"STAMPANTE" 

40 PRINT"MW3PREMI UN TASTO PER PROSEGUIRE" 

42 GET A$ : IFA$ a ""THEN42 

43 PRINT"3" 

30 PRINT INSERÌ RE LA FRASE DA TRADURRE " 

51 PRINT"(OGNI FRASE NON PUO'SUPERARE 80 CARATTERI)" 

33 C=0 

60 INPUT "FRASE";F$(C) 

62 INPUT "ANCORA? (#✓/)" ;R# 

65 IF R*=-"S"THEN C=>C+1 : GOTO60 
70 REM #####TRADUZIONE##### 

72 GOSUB2000 

75 PRINT"^TRADUZIONE" 

76 PRINT"-" 

30 FQRI=0TQC 

85 V=LENCF*<I)) 

38 FORT=lTOV 
90 Af=MID*(Ff<I),T,l) 

95 IF A#»" "THEN PRINT" ";:GOTO150 
100 F0RR-1T026 
110 READ QS.TS 

120 IF Q*=A# THEN PRINTTf; : RESTORE ; GOTO150 

130 NEXT R 

150 NEXT T : RESTORE 

160 NEXT I 

200 PRINT: INPUT"IFREMI -~l PER RICOMINCIARE"; RS ■RUN 
2000 REM ##### OPZIONI ##«#* 

2100 PRINT'TMJQI LA STAPA SU VIDEO 0 STAMPANTE?" 

2110 PRINT"(BATTERE # PER LA STAMPANTE)" 

2111 PRINT"(BATTERE X PER IL VIDEO )" 

2120 INPUT R* 

2122 IF R$="S"THEN 0PEN1,4:CMD1 ; RETURN 
2130 IF Rfa"V'THEN RETURN 
2135 GOTO2100 

8000 DATA A, .-/B/-- .. ,C,-.-. ,D,~. ,E ,. ,0,- .,H,...., li . 

8010 DATAL, - .? > . —. ,Q,— .-,R,,S,..., T,-, U,..-, V,... - 

8020 DATAW, .-, V ,. 

READV. 
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$ $ 

*. EQUIVALENZE * 
* * 


Ecco un programma che vi permetterà di effettuare equivalenze con 
misure di capacità, peso, lunghezza in maniera semplice ma soprat¬ 
tutto veloce. 


10 REM ###EQUIVALENZE### 

13 REM ##DMR SOFTWARE## 

20 PRINT":POKE33280; 2 = P0KE33281,2 
25 PRINTCHRfC14) 

30 REM MENU PRINCIPALE 

33 PRINT" CODICE OPERATIVO" 

40 print "musi a# .lunohezza" 

43 PRINT"IkBCM.VOLUME " 

30 PRINT"IkBDB#.PESO 

60 PRINT"WnSCEOLIRE LE GRANDEZZE SU CUI OPERARE" 
62 PRINT"PREMENDO IL CODICE CORRISPONDENTE#" 

80 OET A# ; IF Rf*""THEN 00 
90 IF A*«"1"THEN 1000 
100 IF A#*"2"THEN 3000 
110 IF fl*-"3"THEN 2000 
129 GOTO80 

1000 REM METRO 

1001 Nf«"" : X#*"" 

1010 PRINT'LT 
1015 PRINT"fCRLA" 

1020 PRINT"NN CM DM 
1022 PRINT 


M DRM HM KM 


1030 PRINT"KOINSERIRE L'EQUIVALENZA COME SEGUE USANDOI SIMBOLI SOPRA INDICATI" 

1031 PRINT"(ATTENZIONE : I MILLIMETRI SONO RAPPRESENTATI CON 'NN') 

1032 PRINT"ES : CM123-M" 

1040 INPUT"TOQ-QUI VALENZA" ; E* : PRINT"T1" 

1030 L-LEN <E*> 

1033 FOpi-lTOL 

1065 IFX**"NN"OR X**"CM" OR X#* ,, DM l, ORX'#*"M"ORX*» ,, DRM"ORX#*"HM M ORXf""KM"THEN1070 

1066 NEXT ; GOSUB6000 ; OOTO1000 

1070 FORC-I+ITCL 

1071 IF MIDf<E#;C>1)■"*"TRENI090 

1072 Nf*N$+MID# < E$/C/1) 

1080 NEXT:GOSUB6000:GOTO1000 
1090 F0RV-C+1T0L 

1110 IFR#-"NN"OR E RÌ»"CM" OR R#-"DM ,, ORR#-' , M"ORRf«' , DflM"ORR#»"HM"ORR#-"KM"THEN1150 
1120 NEXT:GOSUB6000: GOTO1000 
1130 REM CONFRONTO 
1203 F0RI-1T023 

1205 READQ* : IF Qf*X#THEN X-I 

1206 IF Q**R#THEN R-I 
1210 NEXT 

1220 IF X>RTHEN1230 

1221 IF X<RTHEN1300 

1222 IF X-RTHEN1350 
1250 N*X-R:V-10TN 

1235 PRINTTAB(L+13)VAL<N#)#V 
1260 INPUT"PREMI -ETURN ";Z*:RUN 
1300 N«R-X:V-10tN 
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1315 PRINTTAB<L+15)VAL<N6W 
1320 INPUT "PREMI -ETURN "IZf'-RUN 

1350 PRINTTAB<L+15>VAL<Nf> 

1351 INPUT"PREMI -ETURN ";Z*:RUN 

2000 REM PESO 

2001 Nf-"" ' Xf-"" ; Ri-"" 

2010 PRINT"J!" 

2015 PRINT"#CRLA" 

2020 PRINT"MO CO DO 0 DRO HO KO RO Q T" 

2022 PRINT> “ ■ ■ ■«■»'■ 

2030 PRINT"UBINSERIRE L'EQUIVALENZA COME SEOUE USRNDOI SIMBOLI 80PRR INDICATI" 

2031 PRINT"(ATTENZIONE: I MIRIAGRAMMI SONO RAPPRESENTATI CON 'RO') 

2032 PRINT"ES! CO123-0" 

2040 INPUT " KHEQUI VALENZA " J Et ■ PRI NT" TI" 

2050 L-LEN <E*> 

2055 F0RI-1T0L 
2060 XÌ«LEFTf<EÌ,I> 

2065 IFX$-"MG"OR Xf-"CO" OR XÌ-"DO"ORXÌ-"G"ORX#-"DAG"ORX#-"HG"ORXf«"KG"THEN2070 

2066 IFXf-"RO"OR X»-"Q" OR X$-"T"THEN2070 
2068 NEXT:GOSUB6000:QOTO2000 

2070 F0RC-I+1T0L 

2071 IF MID$<E$,C,l)-"-"THEN2090 

2072 N$-N$+MIDf<E$/C>1> 

2080 NEXT:OOSUB6000:GOTO2000 
2090 F0RV-C+1T0L 

2100 R*»R$+MID*<Ef,V,1) 

??!? 52Ì"!!H!!25 R, "" C0 " 0R R*""DG"ORR$-"O"ORR#-"DAG"0RRf-"HQ"ORRÌ«"KG"THEN2150 

2111 IFRf- RG OR R$=»"Q" OR R*»"T"THEN2150 
2120 NEXT:GOSUB6000:GOTO2000 
2150 REM CONFRONTO 
2203 F0RI-1T023 

2205 READQt : IF Qf-XfTHEN X-I 

2206 IF Qf-RfTHEN R-I 
2210 NEXT 

2220 IF X>RTHEN1250 

2221 IF X<RTHEN1300 

2222 IF X-RTHEN1350 
2250 N-X-R : V-10TN 

2255 PRINTTRB(L+15)VAL < Nf)$V 
2260 INPUT-PREMI -ETURN ";Z$:RUN 
2300 N«R-X:V-10TN 
2315 PRINTTAB(L+15)VAL< Nf W 
2320 INPUT"PREMI -ETURN ";Z$:RUN 

2350 PRINTTAB<L+15>VAL<Nf> 

2351 INPUT"PREMI -ETURN ";Zf:RUN 

3000 REM VOLUME 

3001 N*«"":Xt«"":R$»"" 

3010 PRINT"3" 

3015 PRINT"fCALA" 

3020 PRINT"ML CL DL L DAL HL" 

3022 PRINT" 4 -*- 1 -*-* 111 ■ » . 

oo!KI"S inserire l ' equivf, lenza come segue usandoi simboli sopra indicati- 

3032 PRINT ES• CL123—L" 

3040 I NPUT " NHEQUI VALENZA" ; E* : PR I NT " Tl" 

3050 L-LEN (E*) 

3055 F0RI-1TQL 
3060 Xf“LEFTf(Ef; I) 

3065 IFXf«"ML"OR X*-"CL" OR X$-"DL"ORX$-"L"ORX#-"DAL"ORX$»"HL"THEN3070 

3066 NEXT:GOSUB6000:GOTO3000 

3070 F0RC-I+1T0L 

3071 IF MI Df < Ef / C < 1 ) *= " - "THEN3090 

3072 Nf"N$+MIDf(Ef> C>1) 

3080 NEXT : GOSUB6000 : GOTO3000 
3090 F0RV-C+1T0L 

3100 Rf»Rf+MIDÌ<EÌ,V,1) 

3110 IFR$-"ML"OR Rf«"CL" OR R$-"DL"ORR$-"L"ORRf-"DAL"ORRf-"HL"THEN3150 
3120 NEXT : GOSUB6000 : GOTO3000 
3150 REM CONFRONTO 
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3203 F0RI-1T023 
3203 READQ#;IF QfoXfiHEN X-I 
3206 IF Q*»R$THEN R*I 
3210 NEXT 

3220 IF X>RTHEN3230 

3221 IF X<RTHEH3300 

3222 IF X°RTHEN3350 
3230 N-X-R:V-10W 

3255 PRINTTRB<L+15)VAL<N*)*V 
3260 INPUT"PREMI -ETURN "JZf:RUN 
3300 N*R-X : V*10TN 
3315 PRINTTAB<L+15)VAL<N*W 
3320 INPUT"PREMI -ETURN ";Z#:RUN 

3350 PRINTTAB<L+15)VAL<N*) 

3351 INPUT"PREMI -ETURN ";Z*:RUN 

6000 PRINT"ERRORE DI SINTASSIFORI*1TO1000!NEXT: RETURN 

10000 DATA NN< CM;DM;M/DRM;HM; KM 

10010 DATA MQ;CQ;DO;G;DRO;HG;KO;RO;Q;T 

10020 DATA ML;CL;DL;L; DAL ;HL 

READV. 


mwwMwwm* 

* * 

# FRTTORIBLE * 

# % 

MMmwmmM* 

Il programma determina il fattoriale di un numero compreso tra O e 
39. 


10 REM FATTORIALE DI UN NUMERO 
20 REM DMR SOFTWARE 

30 FRI NT "3S" • 

35 INPUT"INSERISCI IL NUMERO";A 
40 IF A<0THEN1000 
50 IF A=0THEN2000 


60 B 3 1 

70 FQRI*1T0A 
75 LET B=B#I 
30 PRINTR; I ;B 
90 NEXT I 

92 PRINT'TIS" ; A; 1-1> B 
100 GOTO3000 

1000 PRINT"NUMERO NEGATIVO 
1010 FORT=»1TQ2000 
1020 NEXT 
1030 RUN 

2000 PRINT"FATTORIALE =1" GOTO3000 
3000 PRINT"W1=PER CONTINUARE 2=PER INTERROMPERE 
3010 GETA* : IFA*=""THEN3010 
3020 IF R*="1"THENRUN 


•ERRORE" 


3040 END 


READV. 
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* DIETA % 
% SU NISURR * 

% % 


Inserendo i dati richiesti dal computer questi vi fornirà la dieta 
più idonea per la vostra persona. 

5 C“. 425 •' D*. 725 : E*. 504 : F*. 167 : G*. 442 : H*.151 
10 POKE33280, 0 : P0KE53281,0 ■ PRINT"^1" J CHRf < 14) 

20 PRINT"INSERIRE I DATI RICHIESTI" 

100 INPUT"ETA'”;K 
110 INPUT"SESSO 
120 INPUT"PESO KG"; I 
130 INPUT"ALTEZZA CM.";J 
140 IFS**"F"THEN180 
150 M*E#ITC#JfD/KTF 
160 GOTO200 
180 M*G#ITC#JTD/K1H 

200 PRI NT "ATTENZIONE TOTALIZZARE 24 ORE COMPLESSI VE NEI SEGUENTI DATI" 

205 INPUT"ORE DI SONNO";C:PRINT"TOT ORE ",C 

210 INPUT"ORE DI RIPOSO";D PRINT"T0T ORE ";D+C 

220 INPUT"ORE DI LAVORO LEGGERO"/E : PRINT"TOT ORE ";D+C+E 

230 INPUT-ORE DI LAVORO MEDIO";F■PRINT"TOT ORE ";D+C+E+F 

240 INPUT"ORE DI LAVORO FORTE";G :PRINT"T0T ORE ";D+C+E+F+G 

250 IFC+D+E+F+G>24THENPRINT"TQTALE ORE MAGGIORE DI 24":GOTQ200 

260 XX*INT<C#M+ <D+2#E+3#F+4#G) # I # 1.154) 

270 GOSUB1000 
500 REM MENU CONSIGLIATO 
530 R*XX/2970 


540 PA*INT<1200*R/4> 
550 LG*INT<96#R/4) 
560 CP*INT < 560#R/4) 


REM PASTA 
REM LEGUMI 

: REM CARNE PESCE UOVA 
580 VD*INT(100#R/0.4) : REM VERDURA 
590 VR*INT<540*R/9) : REM OLII BURRO FORMAG 
600 FT*INT( 150#R/0. 6) : REM FRUTTA MISTA 
610 ZM*INT<320#R/4) : REM CIOC.MIELE MARMEL 
700 REM VISUALIZZAZIONE 
710 PRINT"^a" 

720 POKE33280,6 :P0KE53281> 6 

730 PRINT"#*## SK - // I “TV^IL'.tir* #### " 

GRAMMI" 


;CHRS<14) 


;PA 

;lg 


;cp 
" > VR 

vd 
. ";ft 


733 PR I NT " WiFR IMQ PIATTO 
740 PRINT"» SCELTA PASTA 0 LEGUMI" 

742 PRINT"~*«H* E ”»/“ . 

744 PRINT"L~I . 

750 PRINTMOiEECONDO PIATTO" 

752 PRI NT"» SCELTA TRA CARNE PESCE E UOVA" 

755 PRI NT " ,CX#.. 

760 PRiNT"-r/-^\ _ /i r xt-^r, -r-\*i i >. ##l " 

765 PRINT"COMPLESSIVI . 

780 PR I NT " X - —~ s-4 . 

783 PRINT"®— A I * . 

790 PRINT"OiTIERENDA POMERIDIANA" 

795 PRINT "UBA SCELTA TRA MIELE MARMELLATA CIOCCOLATA" 

800 PRINT "COMPLESSIVI ..";ZM 

810 END 

1000 REM ###*#*#*****41 

1010 PRINT "ZI" 

1020 PRINT"JHUE CALORIE DI CUI HAI BISOGNO SONO GIORNALMENTE C; XXI "13" 
1030 PRINT".««QUESTE CALORIE DEVONO ESSERE RIPARTITE TRA I VARI ALIMENTI "; 
1040 PRINT"IN MODO EQUO" 

1050 PRINT-'RPER LA VISUALIZZAZIONE DEL MENU" INDICATO PREMERE "V" 

1060 PRINT"CONTRARIAMENTE UN ALTRO TASTO" 

1065 GETZS : IF Z$«""THEN 1065 
1070 IF Z$="M"THEN RETURN 
1880 END 
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* verbi * 

* IRREGOLARI * 

* INGLESI * 

mm#**mM**M 


Spesso durante le versioni in inglese capita di non ricordare il pa 
radigma di un verbo irregolare. Con questo programma risolverete tà 
le problema. “ 


10 REM VERBI IRREGOLARI INGLESI 

20 REM BV 

22 REM ***STRSFORDIM SOFTWARE*#* 

30 POKE53280,6 :P0KE53281,6 : PRINT'W 

32 PRINTCHRfC14) 

33 PRINT"INSERIRE IL VERBO DA VERIFICARE IN \I*L**/T ALL'INFINITO" 

40 INPUT V# 

45 READ I*,EI*,PT*,P* 

48 IF I#*"#"THEN63 
50 IF If*V#THEN 1000 
60 G0T045 

63 PRINT"3IL VERBO RICERCATO NON E' MEMORIZZATO" 

70 PRI NT 11 1PREMI « PER UNA NUOVA RICERCA" 

72 PRINT"PREMI ✓ PER CONCLUDERE " 

80 GETR# 

82 IF R#»"S"THEN RUN 
85 IF R*="N"THEN END 
90 GOTO80 

1000 REM STAMPA DATI 

1010 PRI NT "rWHCBIHINFINITIVE PAST TENSE PAST PARTICIPLEMMU" 

1020 PRINTEI*;TAB<13)PT$,TABf.26)P* "SUB" 

1048 GOTO70 

2000 DRTRE5SERE,BE,WAS,BEEN,RESTARE,ABIDE,ABODE,ABIDED,ALZARSI,ARISE;AROSE 

2001 DATA ARISEN,SORREGGERE,BEAR,BORE,BORNE,COMINCIARE,BEOIN,BEGAN,BEGUN 

2002 DATAINTERROMPERE,BREAK,BROKE,BROKEN,PORTARE,BRINO,BROUGHT,BROUGHT 

2003 DfìTACOMPRARE,BUV,BOUGHT,BOUGHT 

2004 DRTRVENIRE,COME,CAME,COME,FARE,DO,DID,DONE,BERE,DRINK,DRANK,DRUNK 

2005 DATAMANGIARE,EflT,ATE,EATEN,TROVARE,FIND,FOUNL,FOUND,VOLARE,FLY,FLEW,FLOWN 

2006 DATARICEVERE,GET,GOT,GOTTEN 

2007 DHTAGURDAGNARE,GET,GOT,GOTTEN 

2008 DATADHRE,GlVE,GAVE,01VEN,ANDARE,00,WENT,GONE,AVERE,HAVE,HAD,HAD 

2009 DATATENERE,KEEP,KEPT,KEPT,CONOSCERE,KNOW,KNEW,KNOWN,FARE,MRKE,MADE,MHDE 

2010 DATAINCONTRARE,MEET,MET,MET,METTERE,PUT,PUT,PUT,LEGGERE,READ,READ, READ 

2011 DATAVEDERE 

2015 DATASSE,SAW,SEEN,MOSTRARE,SHOW,SHOWED,SHOWN,PARLARE,SPEAK,SPOKE,SPOKEN 

2016 DATRPRENDERE,TAKE,TOOK,TRKEN,DIRE,TELL,TOLD,TOLD,LAVORARE,WORK,WORKED 

2017 DRTAWROUGHT,SCR1VERE,WRITE,WROTE,WRITTEN 
10000 DATA*,*,*,*,* 

10200 REM- 

10201 REM- 

10202 REM- 

10210 REM PER AUMENTARE IL NUMERO DEI VERBI 

10211 REM INSERIRE NUOVE LINEE STRfATNLETATN DA 2017 

10212 REM IN POI.DIMICORDARE CHE I DATI DOVRANNO 

10213 REM ESSERE SCRITTI CON QUESTO ORDINE ; 

10214 REM VERBO INFINITO IN ITALIANO,INFINITIVE 

10215 REM PAST TENSE,PAST PARTICIPLE 

READV. 
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m**'*'#******M-# 

* EQUAZIONI * 

* 1 GRADO * 

* * 

***«********«*« 


I seguenti programmi permettono la risoluzione di equazioni di prì- 
mo e secondo grado. 

Per l'inserimento dei dati seguire le istruzioni dei listati. 


10 REM DMR SOFTWARE 

20 REM RADICE DI UNA EQUAZIONE 1"GRADO 
30 PRINT"m" : POKE53280,0 P0KE53281,0 
35 PRINT"FORMA" 

40 PRINT"«FIX+B=0" 

45 PRINT"MB" 

50 INPUT"INSERÌRE A";A 
55 PRINT 

60 INPUT"INSERIRE B";B 

65 PRINT 

66 IF A=0 AND BO0THEN PRINT" SEQUAZIONE IMPOSSIBILE" : GOTO1000 

67 IF A=0flND B*0THENPRINT"SIDENTITA"" : GOTO1000 
70 PRINT'TFISULTATOJMOKU" 

75 PRINT"RADICE“ ";-CB/A> 

1000 PRINT"MOSE VUOI CONTINUARE PREMI RETURN" 

1010 IMPUTA* 

1020 RUN 

READV. 

MMMMmwm*. 

* EQUAZIONI * 

* 2 GRADO * 

*■ * 

5 REM DMR SOFTWARE 

10 REM RADICE EQUAZIONE 2" GRADO 

20 PRINT"3*" : POKE532S0,0 : P0KE53281,0 

21 print" formasi*" 

22 PRINT"AX2+BX2+C=0«T 

25 INPUT"INSERIRE A";A 

26 INPUT"INSERIRE B" i B 

27 INPUT"INSERIRE CSC 

30 IF A=0ANDB=0ANDC=0THEN PRINT" ai DENTITA"•GOTO600 

95 IF A=0ANDB=0 ANDCO0THEN PRINT"SEGUAGLIANZA CS“" » C : GOTO680 

100 IFAO0ANDBO0 ANDC=0THEN200 

110 IFAO0ANDB=0 ANDCO0THEN300 

120 IFA=0RNDB<>0 ANDCO0THEN500 

130 IF AO0THEN400 

200 PRINT"RADICE 1=";0 

220 PRINT"«RADICE 2=";-B/A 

290 GOTO600 

300 IFC-C/AK0THEN PRINT" SEQUAZIONE IMPOSSIBILE" : GOTO600 
310 IF<-C/A)>=0THEND=SQR<-C/fl ) 

320 PRINT "RAD ICE 1»",D 
340 PRINT"«RADICE 2=";-D 
390 GOTO600 

480 IF << B*B>-4*fl#CX0THENPRI NT" SEQUAZ IONE IMPOSSIBILE" : GOTO600 
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410 IF <(B#B)-4*A*C)>=0THENE=SQR(< B#B)-4#A#C) 
420 PRINT"RADICE 1 i <-B-E)/<2#A) 

430 PRINT 11 «RAD ICE 2 = " ; <-B+E>A2#A) 

490 GQTO600 

500 PRINT"RFlDICE 1=";-C/B 
590 GOTO600 

600 PRINT"*MJOI CONTINURRE S/N" 

610 GETAS : IFA*»"3"THENRUN 
620 IF A$=""THEN610 
630 END 

RERDV. 


**************** 


mwMmwmm*. 

* POTENZA DI * 

* UN BINOMIO * 

* * 


Il programma permette lo sviluppo della potenza di un binomio 


5 REM a##*##***###*###*##**## 

10 REM «POTENZA DI UN BINOMIO* 

12 REM * DMR SOFTWARE # 

13 REM *********************** 

28 CLR 

38 PRINT'Tiar 

35 INPUT"PRIMO TERMINE";A 

40 INPUT"SECONDO TERMINE";B 

45 INPUT"tN";N 

50 K=0 

55 C*1 

60 E=0 

65 F=N+1 

300 F0RI=1T0F 

310 1FI>1THENC=<C*CN+1))/<«> 

320 PRINT l;" TERMINNE ";c;"#AT";N;" *BT";K;" 

330 D-C*Am*B1K 
350 PRINTD 
360 PRINT 
370 N=N-1 
380 K»K+l 
390 E=E+D 
400 NEXT I 

500 PRINT"SrrOTRLEl ",E 

521 PRINT"*1=PER MODIFICARE N 2=PER RICOMINCIRE^ 3*PER INTERROMPERE" 
530 GETA*:IFRfa""THEN530 
540 ON VAL<fl*)G0T045,10,550 
550 END 

RERDV. 
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**:************** 

* ATTIVATORE * 
*TfìSTI FUNZIONE* 

* * 
**************** 


Vi siete mai chiesti a cosa servono i 4 tasti (Fi, F2 ,...) alla de 
stra della tastiera? Questo programma vi dà l'opportunità di sfrut 
tàrli secondo la loro reale destinazione. 


10 REM a*#*#############*##*##**## 

11 REM «ATTIVATORE TASTI FUNZIONE# 

15- REM * DMR SOFTWARE # 

16 REM «a#*##***#**#*####*#*****#* 

20 REM SALTO RUTIN L/M 

30 POKE53280,6 : P0KE53281,0 : RRINT"IM" 

35 GOTO5000 

40 REM RUTIN ASSEGNAZIONE 
45 PRINT"SELEZIONE FUNZIONI 1 ' 

50 PRINT"HOT" 

55 PRINT"INSERIRE IL NUMERO DI FUNZIONI DA PROGRAMMARE SKl/85r 

60 INPUT N 

65 IFN>80RN<1THENPRINT"ERRORE. RIPETERE":GOTO60 
70 PRINT"3SELEZIONflMENTO FUNZIONI" 

75 PRINT" MB" 

80 PRINT"PER AVERE IL RETURN AUTOMATICO SUL TASTOFUNZIQNE 
85 PRINT"BATTERE DI SEGUITO AL COMANDO ASSEGNATO IL SIMBOLO 
30 PRINT'TMESEMPIQ : LIST+-" 

100 PRINT"WìPREMI UN RETURN PER INIZIARE" : INPUT A* 

110 PRINT" 13" 

115 DIM K*<N> 

120 FORI-1TON 

125 PRINT "IWTASTO FUNZIONE N. ";I 
130 PRINT"COMANDO ASSEGNATO"; 

135 IMPUTACI) :IFLEN<K#a)»3THEN PRINT"ERRORE. STRINGA TROPPO LUNGA" : GOTO 135 

140 NEXT I 

145 FORI=0TON-1 

150 FORJ-1TOLEN <K*<I+1>> 

155 POKE <PEEK< 252>#256+127+1#16+J),ASC(MID* < KS <I +1),J,U> : NEXTJ 
160 NEXTI 
1000 END 

5000 REM RUTIN L/M ATTIVRTRICE 
5010 PQKE56-PEEK < 56)-1 : P0KE55,0 : CLR 
5020 X=PEEK < 56 > #256 

5030 FORI”0TO110 : READ Q:POKEX+I,Q■NEXT 
5040 FORI*111T0255•POKEX+1,0:NEXT 
5050 SVS<PEEI<< 56)*256) 

5052 GOTO40 

5100 DATA120,24,165,55,105,46,141,143,2,165 

5101 DATR56,105,0,141,144,2,165,55,105,42 

5102 DATA133,251,165,56,105,0,133,252,165,55 

5103 DATA105,128,133,253,165,56,105,0,133,254 

5104 DRTA88,96,4,5,6,3,165,203, 160,3 

5105 DATA209,251,240,6,136,16,249,76,72,235 

5106 DATA197,197,240,44,133,197,173,141,2,41 

5107 DATAI,141,141,2,152,10,24,109,141,2 
5103 DRTA10,10,10,10,168,162,0,177,253,240 

5109 DRTR15,201,95,208,2,169,13, 157,119,2 

5110 DATA200,232,224,10,208,237,134,198,76,66,235 

READV. 
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**************** 

# CONTROLLO * 
«CODICE FISCALE# 

# # 
#*#####*#*#*#### 


Siete sicuri che il vostro codice fiscale sia esatto? Per elimina¬ 
re ogni dubbio ecco un programma che controlla l'esattezza del codi 
ce fiscale delle persone fisiche. 


10 REM ####*####*###########*###* 

12 REM «CONTROLLO CODICE FISCALE# 

13 REM *######*####*#*******#*#** 

14 DIMC<16), D<26) 

15 F0RI=1T016 
20 READCd) 

22 NEXT I 

25 F0RI=1T026 
30 READD<I) 

35 NEXT I 
100 PRINT"3" 

110 INPUT"INSERIRE IL CODICE FISCALE";A$ 

120 GOSUB28000 

10000 PRINT"LUNGHEZZA DEL CODICE ERRATA" ; GOSUB30000 
10010 PRINT'^SCODICE ERRATO" : GOSUB30000 
20000 Z=1 

20010 IF LEN< A$ ) 016THENG0T010000 
20020 1=1 

20030 B*=MID5(A*,I,1) 

20040 IF B#O‘A"0R B*>"Z"THEN20070 
20050 IFCCDO0THEN10010 
20060 GOTO20110 

20070 IF B#<"0"QRB$>"3"THENGOTO10010 
20080 IFC< I )O1THEN10010 
20090 1=1+1 

28100 IFI<=16THEN20030 
20110 S=0 

20150 F0RI=1T015STEP 2 
20160 B$=MID*<A#,1,1) 

20170 IFC(I)=0THEN20200 
20180 S=S+D<VHL(B*>+1> 

20190 GOTO20210 
20200 S=S+D < ASC(B#)-64) 

20210 IFI=15THEN20270 
20220 B*»MID#<A*,1 + 1,1) 

20230 IFC<I+1)=0THEN20260 
20240 S=S+VAL(B*) 

20250 GOTO20270 
20260 S=S+ASC < B# )-65 
20270 NEXT I 
20280 R=S~INT (SX26)#26 

20290 IFMID*<A*, 16,1 >OCHR*<R+65)THEN10010 
20300 Z=0 

20400 PRINT"IL CODICE "ifl*;" E' ESATTO" 

30000 PRINT"SE VUOI RINSERÌRE IL CODICE PREIMI 'R '" 

30010 PRINT"CONTRARIAMENTE UN ALTRO TASTO" 

30020 GETX*:IFX*=""THEN30020 A 

30023 IFX#="R"THENRUN 
30025 END 

30100 DATA0, 0, 0,0, 0,0,1,1,0,1,1,0,1,1,1,0,1,0,5,7,9,13,15,17,19,21,2,4,13,20,11 
30110 DATA3,6,8,12,14,16,10,22,25,24,23 

READV. 
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**************** 

* CARATTERI * 

* MPS 801 * 

* * 
**************** 


Il programma permette di creare in modo semplice e veloce nuovi ca¬ 
ratteri per la vostra stampante MPS 801. 


10 REM CREAZIONE SET CARATTERI 
20 REM PER STAMPANTE MPS/801 
23 REM DMR SOFTWARE 

28 POKE33280,7 :P0KE53281/0 

29 0PEN1/4 

30 PRINT"mMM»MimCRERZIONE CARATTERI" 

35 PRINT"IWSE VUOI LE ISTRUZIONI PREMI '8' E RETURN" 

36 PR1NT"CONTRARIAMENTE SOLO RETURN" 

38 INPUTRf 1 I FA$*"S"THENOOSUB10000 

40 PRINT" C3 - - » 

42 FORI-ITO?:PRINT" I | ":NEXT 

43 PRINT" -'» 

50 PRINT"*" 

^ÌHI!!2 ÌÌMP,WÌF1 “ PER DISEONARE IL CARATTERE" 

S E5HI..22S22E? "!!!5 CANCELLARE E MUOVERSIVÌ»*»»»»tft»£ENZA DISEGNARE 
2JÌS„2!252?r« l *E ER trr s f ° r nhzione DECIMAI»»»IP»»»»»*rlE DEL CAR." 

58 RN * WaWW<PER MU0VERE IL CURSORE MUOVERE I TASTI NORMALI" 


60 GETM* 

65 IF M*-"*"THENAT-1 
70 IF Mf-" 9" THENAT-0 
73 IF M$-"II"THENOOTO1000 
83 IF fi*-"M" ANDX<7THENX-X+1 

87 IF M*-"II"ANDX> 1THENX-X-1 

88 IF M*-"W"ANDVC7THENV-V+1 

89 IF M*""n M ANDV>1THENV-V-1 

90 POKE1024+X+40PY,160:POKE35296+X+40PY,1 
93 IFAT-0THENPOKE1024+X+40PY,32 

100 POKE55296+X+40PY,6 
300 OOTO60 
1000 REM T. DECIMALE 
1005 DIMDC7) 

1010 FORI-ITO? 

1020 F0RJ-1T07 

1025 IFPEEK<1024+I+40*J)032THENX*-X*+"1":G0T01032 

1030 X*-X*+"0" 

1032 NEXT 

1033 N*0 : K-0 : FORC-0TO6 : K-K+l 

1038 N-N+2tC*VAL<MID*(X*/K,1>) 

1039 NEXT C:D<ID-N+128 : X**"" : NEXT 

1040 PRINT"DATI" 

1045 FORT-1T07 ; PRINTD(T)",", 

1046 NEXT 
2000 FORI-ITO? 

2005 V*-V*+CHR*<DCI>) 

2010 NEXT I 

2040 PRINTP1,CHR*C14)"CARATTERE :" 

2041 PRINTP1,CHR*<15)" CHR*<8)V*CHR*a5>" 3 

2042 PRINTP1,"DATI" 

2043 FORI-ITO?:PRINT#1,D(I); 

2045 NEXT:PRINT#1 

2030 RUN 
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5000 REM RUTIN DIMOSTRATIVA 

5010 F0RI»1T021 : READA ; A$ B A*+CHR*<A?:NEXT 

5020 PRINT#l,CHR»<8)Af;CHR*U3>" 

3030 PRINT#1.CHRf<15> " SOFTWARE" : RETURN 

3040 DATA255.235.255. 193.193.227/196.233.235.131.230.230.131.235.233.249.137 

3041 DHTA255.248.248.128 
10000 REM SPIEGRZONI 
10010 PRINT":]" 

10020 PRINT"IL PROORMMA PERMETTE DI USARE IL VIDEO PER CREARE CON ESTREMA"; 
10030» PRINT" FACILITA' CARAT TERI NUOVI PER LA STAMPANTE MPS901 DELLA n i 
10832 PRI NT "COMMODORE. 30" 

10033 PRINT"IL CARATTERE COSI' DISEGNATO VERRÀ' TRASFORMATO IN CODICI"; 

10037 PRINT" DECIMALI.»" 

10038 PRINT"PER L'USO DEI CARATTERI NEI PROGRAMMI PROPI VEDI RUTIN 5000/3030 1 
10040 INPUT"WXPREMI RETURN PER CONTINUARE".A$ 

10050 PRINT'TJ" 

10052 PRINT"SE VUOI LA STAMPA DIMOSTRATIVA PREMI 'S' E RETURN" 

10053 PRINT"CONTRARIAMENTE SOLO RETURN" 

10054 A*»"": INPUTR* : IFfl*<>"S"THENRETURN 
10056 GOTO5000 

READV. 




mmmwmwm** 

* slot * 

* MRCHINE * 

* * 


Il famoso e avvincente gioco ora anche sul vostro Commodore 64. 


10 REM **#***#«#***###**##*** 

11 REM # SLOT MACHINE * 

12 REM # DMR SOFTWARE * 

13 REM ###*###*###*#***##**## 

13 DIM F*(8> 

20 SPf» IWIWI Iim mUMIHWIMI" 

25 C*=" *%aCElJIBBEain!!#*JBB" 

30 POKE53230.0 :P0KE53281.0 
100 REM ****RUTIN BASE*#** 

110 PRINT"3aaSL0TS — 

111 FQRI“1TQ3 : PRINT" I I I 

112 PRINT" 

113 GQ5UB500 
116 M=0 

120 F0RI=1T03 : POKEK+4.21 
130 X2=RND<8)*5+1 

140 ON X/iGOSUB 1000.1020.1030.1040.1050 _ 

145 FQRP»1T08:PRINTLEFT*<SP*.1*8) F*(P):NEXT : PRINT"TTTTTTTn" 

148 M=M+S : POKEK+4.20 
150 NEXTI 
155 GOSUB2000 
160 G0T0115 

500 PRINT"3EHOTÌBÌ>ÌCWKroCSWDBMttfi3rPREMI UN TASTO PER INIZIARE" : GOTO2420 

501 GETAf : IF A*=""THEN501 
582 F0RG=1T03 : PRINT"3" 


Sfl"‘NEXT 
SI" 
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: NEXT 


505 F 0 RI» 1 T 03 =P 0 KEK+ 4,21 

506 F0RT=1TQ8-PRINTLEFT*<SP*> 1*8) MID*<C*,RND<8>#15+1,15"9 
50? PR I NT " ! 111111 TI J" : POKEK+4,20 

518 PR I NT 11: NEXT : NEXT ; RETURN 
1000 REM RUTIN STAMPA SLOT 

1010 REM PERR 

1011 F*a)»"SI \ " S »1 

1012 F$<2)«"ll Si Ti 

1013 F*<3)- H a 9 

1014 F*<4)a" ar ^ - 

1015 F$<5)=" a 9 " 

1016 f$< 6)«" ab m " 

1017 Ff<?)*" ~■ " :F*<8)a" 

1018 RETURN 

1020 REM MELA 

1021 F*a)»"!H VI ":S »2 

1022 F*C2)a" -* •*» " 

1023 F$< 3 >» M ar 

1024 F*< 4 )a"ai 

1025 

1026 FfC6)*"3b •" 

1027 F*< 7 )«" - " Fica)»" " 

1028 RETURN 

1030 REM CILIEGE 

1031 F*C 1 )*"li V_ " ; S a 4 

1032 Si* - ! " 

1033 F• ( 3 ) a " 3 T«M 

1034 f*< 4)«” s rm " 

1035 F#<5)a" SW 1 2T 1 " 

1036 F$<6)*" « 3b rii " ; F$<7)"" "FSO)*" 


1037 

1040 

1041 

1042 

1043 

1044 

1045 

1046 

1047 

1048 

1050 

1051 

1052 

1053 

1054 

1055 

1056 
1058 
2000 
2001 
2010 
2011 
2012 

2013 

2014 

2015 

2016 

2017 

2018 

2300 

2301 

2302 

2303 

2315 

2316 

2317 

2318 
2318 


RETURN 
REM BANANA 
F$( 1 ) a " 11.71 

f *< 2 )-“ trm 
f*( 3)«" ar m 
F*(4)=" 3« ■ 

F$<5) = " ab H 
FS<6)=" sua 

F#<7)"" 

RETURN 
REM BAR 

F«(l)a” ^ ■‘ •S=16 

F$<4)«"M BAR" 

F*<5)a"rT-- 

F*<6)«".7I-- ■' F$<7) = " 

RETURN 

REM CONTROLLO PUNTI 
PP=0:ET=0 

IFM=3THENPP=100•GOTO2300 
IFM*6THENPP=150•GOTO2300 
IFM=12THENPP=200:GOTO2300 
IFM*24THENPP=250• ET* 1 :GOTO2300 
IFM=48THENPP=500•ET=1:GOTO2300 
1FM=20THENPP=30:GOTO2300 


IFM=36THENPP=50 
I FM=18THENPP=40 
IFM=10THENPP=25 
PRINT 11 
PRINT 


GOTO2300 

GOTG2300 


PRINT 

PRINT 

IF ETalTHEN2430 
FORT=1TO2000NEXT 
PRINT".Tn 
PRINT" 

PRINT" 


»MiFUNTI";PP 

Ili 1 - 


F5<8)*" 
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2328 RETURN 

2420 «=54272 

2421 PQKEK+1/130 : POKEK+5 , 9 : POKEK+15,30 ■’ PQKEK+24,15 : FORL= 1TO12 • POKEK+4 , 21 
2425 GOTO501 

2430 «=54272 

2431 POKEK+1/100:POKEK+5/9 :POKEK+15/30 POKEK+24/15 
2435 F0RT-1TQ16:Z=16-T:POKEK+4,21 

2440 POKE53230,T:P0KE53281,Z 
2445 FORH*1TO100 ; NEXT : PQKEK+4;20 
2448 NEXTRUN 

READV. 




* GENERATORE * 

* ETICHETTE * 

* * 


Un simpatico e utile programma per personalizzare le etichette del¬ 
le vostre cassette musicali. Il programma funziona solo con l'uso 
della stampante. 


10 REM GENERATORE ETICHETTE 

12 REM DMR SOFTWARE 

20 REM ******************** 

25 POKE53280/0 
28 PRINTCHR*<14) 

50 REM INTRODUZIONE DATI 

52 PRINT" *T' 

55 DIM A*(2/2) : DIM B*<12,2> 

60 F0RI=1T02 

65 PRINT" aOWUTORE LATO ";CHR*(64+0 i " MAX 17 CAR. " 

68 INPUT-Af(l<I) : IF LEN<R$<1,I>»17THEN65 

69 INPUT"TITOLO LI ";A*<2/I>:IF LEN<AS<2,1 ) »17THEN69 

70 NEXT I 

71 PRINT "^INSERIMENTO TITOLI CANZONI»" 

72 PRINT-PER INTERROMPERE L'IMMISSIONE BATTERE 't' E -~l 

73 PRINT"SPREMI -“I ^ PER INIZIARE":INPUTX* 

75 F0RI-1T02 

80 FORT-ITO12 

85 PRINT"Uff! ITOLO N.T" LATO " ;CHR*<64+I> 

86 PRINT"SH1AX 17 CARATTERI" 

88 INPUTX*:IF X*="t"THEN100 

89 IF LEN(X*)>17 THENPRINT"PAROLA TROPPO LUNGA" : FORV-1TO1550 : NEXT ; Q0T085 

90 B*<T,I)»X* 

92 NEXT T 
100 NEXT I 

110 PRINT"."MaiNSERIRE IL NUMERO DELLA CASSETTA" : INPUT P* 

125 PRINT"r!S»INSERIRE IL NOME DEL PROPIETARIO DELLA CASSETTA" 

130 INPUTN* 
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199 REM 

200 REM 

201 REM 

230 QPEN3.. 4/7 

232 E$=CHR*<14> 

233 NBS»CHR$<15) 

235 RV#=CHRt<18) 

236 G*=»CHRf<8> 

250 REM 

251 T*» 1 ' 

252 Z»0 
255 PRINT#3; 


************ 

RUTIN STAMPO 

************ 


256 print#3.n557rv57ì*F * r 

260 POR I=1T02 1 

262 PRINT#3,NBS''I 

i«ìwOT^?!| C Wa\ ! 2r J ™ <T#,vv> 
III fwnSSS™ 1 :2t “ LEFT,CT ^ W) 

280 NEXT 
285 PRINT43 


e-%~ 


286 IF Z=1THEN320 
290 F0RI»1T012 

292 PRINT#3,NBf"l "B$<I,1>; 

293 VV*19-LEN(B*<I,1)):z*»LEFT*<T*,VV> 

295 PRINT#3> Z$j "I «B$<I,2) J 

296 VV«19-LEN<B*<1,2)> Z#*LEFT*<T$,VV) 

298 PRINT#3,Zf"I » ' 

299 NEXT 

310 Z*1 : 00T0256 

320 PRINT#3, "I -*«HT| l1 /. « ; p$, 

321 VV=28-LEN<P$):Z*aL£FT*<T$,VV) 

322 PRINT#3,Zf M l “ 

325 PRINT#3, "I 

326 PRINT#3, "I U”K-| 

327 VV=39-LENCN#) : Z»*LEFT$<T», W) 

330 PRINT#3, "I "Nf j Z$"| " 

350 PRINT#3,"-—-— 


REODV. 


ESEMPIO DI STAMPO 


1 R.Cocciant* 



1 Io canto 

1 Mixa9* 


1 Io canto 

1 no controlea 


1 Amico sincero 

1 Paris latino 


1 ra9*zza in 

1 Casanova 


1 bicicletta 

1 

1 

1 

1 

1 

1 

1 

1_ 

1 

1 

f 

1 

1 

1 

1 

1 

1 


1R.Cocciante 


■n 

1 Io canto 

1 Mixa9* 


I CASSETTO N.12 



1 PRQPIETORIQ : 



1 Riccardo Di Marcantonio 
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* CONTABILITA'' * 

* CASALINGA * 

* * 


Un semplice programma per gestire in modo veloce la vostra contabi¬ 
lità casalinga. Le voci dei conti potranno essere scelte da voi 
stessi. 


10 REM PICCOLO CONTABILITO CRSRLINOO 
20 REM 

22 REM DMR SOFTWARE 

53 DIM E*<10,3):REM ENTRATE 

36 DIM U*<10,3>:REM USCITE 

37 OOSUB23000 

58 OOSUB500 : REM CARICAMENTO DATI DA DATA 

59 GOSUB600 

60 PRINT"riMtì*tt«r :POKE33280,2:POKE332S1; 1 

61 PRINT-3BE DEVE MEMORIZZARE I DATI SU NASTRO PREMI V 

62 PRINT"CONTRRRIAMENTE UN ALTRO TASTO" 

63 INPUT R# : IFR$»"M"THENGOSUB 20000 

64 PRINT’LTIittiuiUfl' 1 : POKE53280,1 : P0KE33281,1 
63 PRINTCHRfC14) 

68 PRI NT INSERIRE LA CAUSALE DELLA REGISTRAZIONE CONTABILE" 

70 PRINT" <1 ATTERE “ PER UNA ENTRATA DI DENARO) 11 W1Lt 

72 PRINT" <1 ATTERE / PER UNA USCITA DI DENARO) 1 ' 

75 PRINT"XFTTESA DATI" 

76 OET Af : IF Af*""THEN76 
80 IF A*""E V THEN 1000 

82 IF A»**"U"THEN 5000 
84 G0T076 

300 REM*»«**«**!M»)ft*iM'** 

501 REM ENTRATE 
303 F0RI-1T02 
308 READ EfCI/1) 

310 NEXT 
312 REM- USCITE 
513 F0RI-1T08 
518 READ U#<I,1) 

320 NEXT 

322 RETURN_ 

600 PRINT"rmaDIDIWE VUOI LA SITUAZIONE ATTUALE DEI CONTI PREMERE S";CHRSC14J 

610 PRI NT 11 CONTRARIAMENTE UN ALTRO TASTO" * /UWU4J 

611 POKE33280,1:P0KE33281-1 

620 INPUT R* : IF R»Ó"S"THEN RETURN 

630 PRI NT 11 PER VISURLIZZARE LE ENTRATE PREMI 

632 PRI NT 11 PER VISUALIZZARE LE USCITE PREMI /' 

633 INPUTRf 

636 IF R*«"E"THEN650 

637 IF Rt»"U"THEN700 
640 00T0633 

630 F0RI-1T02 


631 PRINTEfCI , 1);TAB<13>Ef(I/2) 

632 NEXT 
635 GOTO750 

700 F0RI-1T08 

701 PRINTUf<I/1)j TABC13)Uf(I/2) 

702 NEXT 

750 PRINT"MPREMI -~l W PER CONTINUARE" : INPUTRf 
732 RETURN 

1000 REM REGISTRAZIONE ENTRATE 
1003 REM PRESENTAZIONE CONTI 
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1008 FRINT"3" : P0KE53281>0 :POKE53280,2 

1010 F0RI*1T02 

1012 PRINT IJTflB(4)EI(M> 

1030 NEXT 

1042 INPUTX* INSERIRE IL NUf1ER0 CORRISPONDENTE 

1043 PRINT"CONTO SCELTO N. ";X 

1047 PRINT"OK (RISPONDI S PER N PER A D' 1 
1030 FOR I«ITO10000:GET A* ^ 7 

1032 IF R$*"S"THEN DOTO1100 

1033 IF A*-"N"THEN GOTO1000 

1034 NEXT 

1100 PRINT"INSERISCI IL VALORE “ 

1110 PRINT"VALORE INSERITO ”;V* 

1111 FORT*1TO2000:NEXT 
1120 REM MODIFICA MATRICE 
1123 E*(X,3>»E*(X,2) 

1130 Z*VRL(V$)+VRL<E$(Xj 3)) 

1135 ES(X,2)*STR*(Z) 

1130 PRINT‘73 SITUAZIONE ATTUALE DEL CONTO 

1132 PRI NT 11 . 

1134 PRINT"VALORE ATTUALE 
1153 PRINT" 


AL CONTO DA AGGIORNARE 


•'INPUT Vf 


";Ef<X,1) 


VALORE PRECEDENTE" 


1160 PRINTE*(~X,2);TRB(23)E*<X,3) 

£ RINT "«PREMERE UN TASTO PER TORNARE AL \ENU' 

1182 GETA*:IF AtO""THEN 59 

1183 GQT01182 

3000 REM REGISTRAZIONI USCITE 

3001 REM PRESENTAZIONI CONTI 

5003 FRI NT "13" : P0KE53281,0 • POKE33280» 2 

5010 F0RI*1T08 

5012 PRINT l;TABC4)U*<I,l) 

3030 NEXT 

3040 PRINT"«INSERÌRE IL NUMERO CORRISPONDENTE 
3042 INPUTX 

3045 PRINT"CONTO SCELTO N. ";X 

J047 PRINT"GK (RISPONDI S PER #-s, N PER /O" 

5030 FOR I*1TO10000:QET A$ 

5032 IF A*- 11 S"THEN GOTO3100 

3033 IF A*-"N"THEN GOTO3000 

3034 NEXT 

5100 PRINT"INSERÌSCI IL VALORE INPUT V* 

5110 PRINT"VALORE INSERITO ";Vt 

5111 FORT*1TO2000:NEXT 
3120 REM MODIFICA MATRICE 
3123 U$(X/3)*Uf(X/2) 

5130 C"VAL(V*)+VAL(Ut(X,3)) 

3133 Uf(X/2)*STRf(C) 

g|§* *ITUHZIONE ATTUALE BEL CONTO 


W" 


AL CONTO DA AGGIORNARE 


5154 PRINT"VALORE ATTUALE 

5155 PRINT" 


VALORE PRECEDENTE" 


5160 PRINTU*(X,2>;TAB(25>Uf(X,3> 

3182 FORWTTO PHOmENTO E ' STHT0 EFFETTATO TRAMITE 
3184 PRINTI;THB(4>E*a,l) 

5186 INPUT P N T ” INSEKIRE IL C0I,ICE BEL CONTO 
3198 REM AOOIORNAMENTO ENTRATE 

3192 D"VAL<E*CH,2))-VAUV*> 

3193 E*<H,2>-STR«<II> 

5200 IFVAU E*O1,2>>«<0THEN3220 
3210 OOTO6180 

3220 PRINT"IL CONTO "JE*(M/1? 

5222 PRINT "NON E' SUFFICENTE A COPRIRE LA SPERA » 
3223 PRÌNT"!™™i RE -r 0PE ^ ZI0NE USANDO IjN ALTRO 
K30 SmiWW - 1 PER RIPETERE «-'OPERAZIONE 


;u*(Xii) 


IN QUESTIONE" 


CONTO" 

1 : INPUT"r;A*:pRINT"31" 
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6180 PRINT SPREMERE UN TASTO PER TORNARE AL NENU" 

6182 OETAf : IF A*0'"'THEN 53 

6183 00T011B2 

10000 REM CONTI IMPUTABILI 

10003 REM NUMErS°maI!mO dTI^ " raOPIO10002RE " «***«TO MANTENENDO PERO' 

10005 REMtPER AUMENTERNE IL NUMERO MODIFICARE 

10006 REM LE DIMENSIONI DEI 2 VETTORI) 

10010 REM DATA CONTENENTI I DATI 
10020 REM CONTI ENTRATE 

10025 DATABANCA C/C, CASSA 
10040 REM CONTI USCITE 

11131 ^ ™ fl 5 E 'f 0frT «E,BENZINA,RIP.AUTO,RIP.COMPUTER,RIVISTE,DEBITI VARI 

20000 REM MEMORIZZAZIONE DATI 

20001 PQKE53281,0 
20003 OPEN1/1,1,"DATA" 

20010 FORI»0TO10 

20015 PRINT#1;E$(I; 1) 

20016 PRINT#1)E$(I^ 2) 

20017 PRINT#1)E$(I,3) 

20020 NEXT 

20021 FORI-0TO10 
20023 PRINT#1»U*<I)1) 

20026 PRINT#1,U*(I,2) 

20027 PRINTil , U$(I,3) 

20028 NEXT 
20030 RETURN 

23002 OPENl!?!0 S "DATA" LR CRSSETTR CONTENENTE I DATI»";CHR*<14) 

25005 FORI-0TO10 

23010 INPUT E$<I)1> 

23011 INPUT E$<1/2) 

23012 INPUT EfCI/3) 

23013 NEXT 

25020 FORI=0TO10 

25021 INPUT U*<I,1) 

25022 INPUT U»<1.2> 

23023 INPUT U*<I,3) 

25024 NEXT 

25025 RETURN 

26000 REM AVVERTENZE GENERALI 

26001 REM SE USATE PER LA PRIMA VOLTA 

26002 REM IL PROGRAMMA DATE PRIMA IL RUN 

26003 REM POI QUANDO APPARIRÀ' LA SCRITTA 

26004 REM PRESS PLAY ON TAPE DATE BREAK 

26005 REM SUCCESSIVAMENTE DATE GOTO 58 

26006 REM 

26007 REM FINITO L'INSERIMENTO DATI MEMORIZZATELI 

26008 REM <IL PROGRAMMA HA OIA'LA RUTIN PREDISPOSTA) 

READY. 


■M $ M $ # * * $ # $ $ $ $ $ $ $ 


UN 
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* SPRCE * 

* russi oh * 

* * 


Una difficile ed emozionante avventura spaziale tra bolle radioat¬ 
tive, grotte stellari, mostri e salti in iperspazio. 


* SPRCE * 

* MISSION * 

* DMR SOFTWARE * 
«(SOLO PER CBM 64?* 

«*«******«****«*«««« 


10 REM 
20 REM 
30 REM 
40 REM 
30 REM 
60 REM 
100 REM 

110 REM ***#**CREfiZIONE SPRITES****** 

112 REM NAVICELLA *"******** 

113 F0RI-1Z288T012330 
120 READ Q:POKEI,Q 

122 NEXT I:POKE2040,192 

123 DATA 

140 F0RI.12332T012414 
143 REA0QPOKE1,Q 

}2f iSSL , 1 POI<E204 1'193:pOKE33248+40, 1 

14r DnTnB 

130 DATR0,0,0, 0 , 0 , 0 , 0,0 g « a» . 0 . 3.1 oo o 550 c nn 

133 DATA52, 12,33, 172,7,99,27,195,78 16 iTi 2 ??» 2 ?!'Si 1 ?!'! 7 ?' 136,8,7, 12,36 

133 Mffli2,48,0,6l24Ì;0”:g4Xil JV l4 ' 112 ' 24 ' 22 ^ 4 ' 8 '^>^^ 1 2'i^40,24,0 

160 F0RI-12416T012478 
165 READQ:POKEI,Q 

ì?2 DHTH0 POKE2042 ' 194:POKE53S48+ ' ,1 -7 ; POKE33248+4,0 

IPPMMiFatmr 

200 REM «»**».*, 

210 REM 1 FASE********* 

223 GOSUB 10000 : REM ISTRUZIONI DEL GIOCO 
I» 0 : PWE33281,0:PRINT"rn” ° 

231 P0KE33248+21,233 

233 vìiissTroS^" P0SIZI0I4E NAVICELLA 

24B rc’rijT^li-. li-iZy 5 332484 ' 1 ' V ; P0< E33248439, 14 

240 PRINT <WMW*MiwBin(r^ ^ 

241 A»»’ 1 *4j» gq 

ìiì £“ PEEK C 33248+31);Z-PEEK(33248+30) 

230 TU - 11 000000" • 

260 IF TI*-"000030"THEN 300 
270 P-INT(RND(1)*(X/8)+2) 

272 PRINT TAB(P?LEFTf(A*,P)"o" 

273 V-V+.3 ; IF X>235 THEN V-V+3 

380 ^S 2 ? >:IF 30127 1HENG0SUB10100 

381 IF IO200THENX-200 

383 IF PEEKC33248+31> = 1THENG0SUB 10200 

Ile lFc5I^ , S£uì!£3 , ""‘ l * ti *"" 0000 ^"thencl-. 

390 |p Vi’Ith1ncL 0 0 E V1 2 255 5 ' V1 :V1 * V1 " 20 : IPPEEK<3324S+30;i.233THENCL-2 : GOSUB 10200 
400 GOTO260 

500 G*0 : DD*4 FORM*1TO200 
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310 PRINT'TM 
522 P=INTCRND(n*6) 

530 PRINTTABCP+GVTWL. _r*.» 

532 S- PEEK<56320) = IP SO127THENOOSUB10150 

535 IFX>255THENX=255 

536 P0KE53243,X 
340 IFG>20THENH*1 
342 IFH*lTHENG*G-.2 
544 IFH*0THENG»G+.2 

530 IF PEEK<53248+31>=1THEN0QSUB 10200 
580 NEXTM 

1500 REM ************** 

1301 REM «******«*****» 

1510 FORIMTD70 : PRINTTABCRNDC1 )#39) " fl. » 

1520 PRINT" 3C 

1521 PRINT"3C 

1522 PRINT' 


: P0KE53248+1. V :Y*Y~.5 :NEXT 


1530 P0KE53248+41,2 

1532 PRINT"a RALLENTARE" 

1535 F=7 

1540 IFY>210THEN1600 

1542 IF PEEKC203><>64fìNDF>lTHEN F*F~1 

1545 P0KE53248-*-1 ,W '■ Y=V+F 

1560 GOTO1540 

1600 IFFO1THENC04 : G03UB10200 

10000 REM a*#*##**####*#**#### 

10001 REM * SPIEGAZIONI * 

10002 rem m**m#mm*****#m* 

10004 POKE53280;2:P0KE53281 ; 2 : PRINT"UT 


10006 PRINT" 

10007 PRINT" 

10008 PRINT" 
10003 PRINT" 

10010 PRINT" 

10011 PRINT"MS 
10013 PRINT"*I« 


mm. fmm 

n % a» 


x x 


ALTRIMENTI UN ALTRO TASTO" 


DOVRAI PASSARE ATTRAVERSO UN CAMPO DI BOLLE RADIOATTIV 

ESPLODERANNO ASSIME A TE" 
ALTRO PERICOLO 'IL KROL'" 


NELLA GROTTA STELLARE. 
ESPLODERAI ! 


% ® x x x r 

mm m x » mm mmr 

MISSION" 

1984 DMR SOFTWARE" 

10015 PRINT"WK3E VUOI LE ISTRUZIONI PREMI 'V 

10016 GETAf:IF A$“""THEN10016 

10017 IF AfO’T'THEN RETURN 

10018 PRINT"ri" 

EE!t5!!IL> FINE DEL GI0C0 E ' “UEULO DI ARRIVARE ALLA BASE LUNRRE. " 

10020 PRINT PER FAR CIO’' r, '"‘ l,rk "’ •.«««»»---- — - 

E 

10021 PRINT”CHE AL CONTATTO DELLA TUA NAVICELLA 

10022 PRINT"MA ATTENZIONE TRA LE BOLLE VI E' UN 

10023 PRINT"UH MOSTRO CHE SI GETTERÀ' VERSO DI TE. 

10024 PRINT"L'UNICA SALVEZZA PER TE E' EVITARLO" 

10025 PRINT"PASSATE LE BOLLE ATTENZIONE! SI ENTRA 

10026 PRINT"DOPO 4 COLLISIONI CON LE SUE PARETI 

f®®^7 PRINT"JOSE RIUSCIRAI fi PASSARE IL TUTTO; UN VELOCE SRLTO NELL'IPERSPAZIO" 
PRINT’E FINALMENTE A CASA....MA RICORDA DI FRENARE IN TEMPO PRIMA" 
PRINT-DELL'RTTERRAGGIO SE NON VUOI SCHIANTARTISULLA RAMPA" 

10030 INPUT"PREMI RETURN PER CONTINUARE";fi$ 

10032 PRINT'TJTHSTI DA USARE" 

PRINT"OSANDO IL JOYSTICK COLLEGARLO ALLA PORTA NUMERO 2" 

{0036 PRINT"*KPER FRENARE IN FRSE DI ATTERRRGIO PREMERE UN QUALSIASI TASTO 

10037 INPUT"JffitPREMI RETURN PER INIZIARE";fl* wJHLOlMol (Ho Tu 

10099 RETURN 

10100 IF3*123 OR S=122 OR S=121 THEN X*X-8:P0KE53248;X : RETURN 

10101 IFS=119 OR S*118 OR S=117THENX=X+8:P0KE53248;X : RETURN 

10102 RETURN 

10150 IFS-123 OR S«122 OR 8*121 THEN X-X-5 : RETURN 

10151 IFS=119 OR 8*118 OR 8=117THENX"X+5- RETURN 

10152 RETURN 

llìTi p8k 1II5I! t32 F ReTUR^°‘ 0 ! NEXT :P0KE53281 0 : CC=CC+1 : IFCC>“DDTHEN 10210 

10210 FORI=1TO10 : P0KE53248+39;1 

10211 POKE2040;193 ; FORT=1TO10 ; NEXT 
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10212 POKE2040,192:P0KE53248+39,4 :NEXT 

10213 P0KE53248,0 

102 13 pr i nt". iiiinnn11>m»ra»itM»m*QRME over m :end 

10400 ZZ=X : CL*2 •' P0KE53248+4, ZZ : RETURN 

RERDV. 




mm***m**m%w 

* LAVAGNA * 

* GRAFICA * 

* * 

m#*m*mM*#m* 

Il programma consente di usare il video come una lavagna. Potrei' 
creare 1 vostri disegni in alta risoluzione e memorizzarli su n 
stro o su disco. Il listato contiene due routine in linguaggio ma 
china: la prima pulisce la. pagina in alta risoluzione, la secon| 
imposta i colori di detta pagina. 


I REM «••••***•••*•••*« 

Z REM «LAVAGNA GRAFICA* 

3 REM * PER CBM 64 • 

3 REM ***************** 

10 FORI-20000TO20121'READO:POKEI,0 : NEXT 

2® IMTR169.0,.133,231,169,32,133,232,160,0,169,0,145,251,230,231 197 741 7an 7 

II Ì 4 fiÌ 30 ' 232 ' 169 ' S4 ' 137 ' 252-208,236, Ì69 0 133 251 lis 4 7 133?mJ 
24 DATH160,0,138,143,231,230,251,169,232,197,251,208 7,lt?7 lai m “ 

26 233 4 27- 

» 44b: i! 4 ' s ' 23£ ' 224 '2= > =' 2 ^, ls i, 0 , i 

29 SVS20000:SVS20071 

30 P0KE53272,PEEK(532?2>0R8 
32 P0KE33263,PEEKC5326510R32 
100 X«160 : V«100 

110 Z“PEEK<563207 : N=PEEK<197) 

112 IFN“4THENSVS20000:SVS20071 
114 IFN-3THEN1000 
120 IFZ«126THENY»V-1 

122 IFZ-123THENY»Y+1 

123 IFZ-123THENX-X-1 
126 IFZ-119THENX-X+1 

128 IFZ*118THEN X«X+1:V«Y-1 

129 IFZ-117THEN X-X+hY-V+l 

130 IFZ*121THEN X«X-1:V-V+1 
132 IFZ«122THEN x*X-hY«Y-l 

152 POKEBY, PEEK^BYlORlztBn 1 BY«8192+RO*320+8*CH+LN : 8I=7-<XAND71 

500 GOTO110 
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1000 

1011 

1020 

1022 

1024 

1025 
1030 
1032 
1035 
1040 

1042 

1043 
1100 
1105 
1110 
1111 
1120 
1130 

1140 

1141 

1142 
1160 

1165 

1166 
1170 
1180 
1190 
1200 

1500 

1501 
1503 
1304 

1507 

1508 

1509 

1510 

1511 


PRINT'TJ" :P0KE53265* 27 :P0KE53272,21 

Zl=8192 : 22*16191 

INPUT"HOME DEL FILE";Z* 

INPUT "DISCO 0 NASTRO<D/N)";T* 

IF T*»'’N"THENX=1 
IF T*»"D"THENX“8 
INPUT"LOAD 0 SAVE<L/S)";S* 
IFS**"S"THEN1100 
IFS*“"L"THEN1160 
REM ****RIJTIN CARICAMENTO***# 

REM 

REM 

OPEN1/X ;ItZS 

F0RS-Z1T0Z2 

M»PEEK<I> 

PRINTtl>M ■ 

NEXT I:CL08E1 
G0T029 

REM #*#*RUTIN MEMORIZZAZIONE###* 

REM 

REM 


P0KE53272,PEEK<53272>0R8:PRINT'TT :SVS20000:SVS20071' 
PQKE53265;PEEK< 53265)0R32 
OPENi/X/0/Z# 

F0RI-Z1T0Z2 
INPUT#1>M 
POKEI > M 

NEXTI ' CLOSE1 : GOTO110 
REM 

REM #######SPIEGAZI0NI###### 


REM IL PROGRAMMA PERMETTE DI TRACCIARE DISEGNI IN ALTA RISOLUZIONE 
REM IL DISEGNO PUÒ" ESSERE MEMORIZZATO SIA SU NASTRO CHE SU DISCO E PUÒ' 
REN ESSERE RICHIAMATO E DIRETTAMENTE DISEGNATO SU VIDEO 


REM TASTI DI GESTIONE 

REM PREMERE FI PER CANCELLARE IL VIDEO IN ALTA RISOLUZIONE 
REM PREMERE F2 PER MEMORIZZARE 0 RICHIAMARE IL DISEGNO 


READY. 




**************** 

* gestione * 

* BIBLIOTECA * 

* * 

***m*m**mm** 


Il programma vi permette di archiviare 2500 libri effettuando 
ricerche per autore, titolo e corrente letteraria. 


10 REM GESIONE BIBLIOTECA 

12 REM DMR SOFTWARE 

13 REM ****************** 

15 POKE532S0, 0 •' PRI NT " WCHR* <14) 

16 ZX«1 

18 PRINT"SE VUOI LE ISTRUZIONI D'USO PREMI # E —"“I " 

19 PRINT"CONTRARIAMENTE SOLO -~l ✓w'":INPUTA*:IF fl*»"S"THENGOSUB20000 


le 
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CONTRARIAMENTE UN ALTRO TASTO" 


CODICE CORRISPONDENTE* 


TOTALE 10000VOCI RICERCA" 
BATTERE ' T' E -“I 


20 DIMBf(2300.3) : REM MATRICE DATI 

21 PRINT"XE DEVI CARICARE I DATI PREMI I 

22 GETAf ^IFRt»""THEN22 

23 IFA*O"H"THEN100 
23 PRINT"UBICHIAMO DATI DA NASTRO" 

26 PRINT"INSERIRE LA CASSETTA CONTENENTE I DATI" 

30 0PEN2,1. 0."DATA" 

31 INPUT#2.CC 
33 FORI-1TOCC 

40 INPUT#2.B#<I.0> 

41 INPUT#2.Bt<I,l> 

42 INPUT#2.Bf(I,2) 

43 INPUT#2.Bf(I,3) 

43 NEXT I ; CLOSE 2 
100 REM MENU' PRINCIPALE 

110 PRINT"3"CHM<14> 

111 PRINT" 

^ INT " ro>CE0L - 1 Lfl FUNZIONE DESIDERATA DANDO IL 

113 PRINT"mmtpptiRiiaiR.INTRODUZIONE DATI" 

116 PRINT"»»»**MH8Ci.RICERCA DATI" 

120 GETAf •' IF At«""THEN120 

122 IF A#""1"THENGOSUB1000 
124 IF Rf■"2"THENGOSUB6000 

123 GOTO100 

1000 REM *****INSERÌMENTO DATI***** 

1010 PRINT "INSERÌ MENTO DAT IBM" 

1020 PRINT"INSERIRE I DATI NELL'ORDINE IMPOSTO" 

1025 PRINT"WIRX 2500 LIBRI X4 VOCI CIASCUNO 

1026 PRINT"SPER INTERROMPERE L'IMMISSIONE DATI 
1028 PRINT"MSìFREMI _“| z_/ PER INIZIARE*"j: INPUTCf 
1038 PRINT"3" 

1032 FOR I=ZXTO2300: PRINT "ITI 
1040 INPUT"TITOLO TESTO<T STOPViZf 

1045 IF Zfa’-rTHEN ZX*CC+1 : GOTO 10000 

1046 B$(I,0)*Z$:CC*CC+1 
1048 INPUT"AUTORE";Bf<1,1> 

1050 INPUT"CORRENTE LET. 0 EPOCA";B*<I.2) 

1035 INPUT"SCAFFALE E N.SEQUENZIALE";Bt(I,3) 

1060 NEXT I 
1070 DOTO10000 

6000 REM ****RICERCA DATI**#* 

6005 PRINT"<1-1CERCA DATIMMTIPI DI RICERCA" 

6010 PRIMT"-aiS ...RICERCA PER AUTORE» 

6011 PRINT"fil_IBRI DELL'AUTORE.CORRENTE LETTERARIA 

6012 PRINT"*-S2S ...RICERCA PER TITOLO LIBROWB 

6013 PRINT"AUTORE/CORRENTE LETTERARIA.COLLOCAZIONE TESTO»" 

6015 PRINT"*-83B ...RICERCA PER CORRENTE LETTERARIA 0 EPOCA' 

6018 PRINT"f!WTESTI DEL PERI ODO .AUTORI, COLLOCAZIONE TESTI" 

6020 PRINT"MWDARE IL CODICE CORRISPONDENTE ALLA 

6022 GETAf : IFAf*' 1 "THEN6022 

6023 IFAf="1"THENRR=1 :Z1“0 : Z2=2:Z3“3 : G0T06100 

6024 IFAt="2"THENRR=0:Zl=l•Z2*2:Z3*3:GOTO6100 
6023 IFflf*"3"THENRR«2:Z1=0 :Z2=1 :Z3=3:G0T06100 
6026 GOTO6000 

6100 REM RICERCA******* 

6101 PRINT'TJC 

6104 PRINT "MI USER IRE IL DATO DI RICERCA" i '• INPUTNf 
6103 PRINT" KRMiVRBPtVBfì T TENDER E GRAZIE" 

6110 FORI-1TOCC 

6112 IFBf(I.RR)“NfTHEN6115 

6113 GOTO6300 

6115 PRINTBf(I.ZI) : TR=1 

6116 PRINTBf(I.Z2) 

6117 PRINTBf(I.Z3);" (COLLOCAZIONE)»" 

6300 NEXT I 

6310 IFTR=0THENPRINT"RICERCA NEOATIVA":FORT-1TO1500 :NEXT: GOTO100 
6320 INPUT"HPREMI _~l z-/ PER TORNARE AL \ENU";A$:TR=0: GOTO100 
9999 STOP 


COLLOCAZIONE TESTI»" 


FUNZIONE SCELTA" 
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10000 

10005 

10006 

10007 

10008 
10010 
10020 

10030 

10031 

10040 

10041 

10042 

10043 
10045 
10050 
20000 
£0001 
20002 

20003 

20004 

20005 

20006 

20007 

20008 
20009 


REM *##MEMORIZZflZIONE DATI*#* 

PRINT'TJSE VUOI MEMORIZZARE I DATI ORA INSERITI PREMI *” 

PRINT"CONTRARIAMENTE UN ALTRO TASTO" 

QETRf : IF A»«""THEN100A7 

IF A*O"S"THENGOTO100 

PRINT"rUEMORIZZRZIONE DATI INSERITI" 

OPENI,1,1,"DATA" 

FOR X=1T0CC 
PRINT#1,CC 
PRINT#I,B»CI,0J 
PRINTW1,£$<1,1? 

PRINT#i,Bf(I,2) 

PRINT#1,B*<I,3> 

NEXTI:CLOSE1 

PRINT"? 071 MEM0RIZ2ftTI " : PORTITO 1 500:NEXT ; GOTO 100 

ooì™L PR0GRRf1f1fl PERMETTE DI MEMORIZZARE IN MANIERA ORDINATA IN UN 

print"corrente letIerarÌa^K S deL 10 testo 5 ^ LIBRI registrrti per 

?H lL NIJMER0 PR0GRESSIV0 ° LO" 

S8® : 35 ÌALLA ®ì,gS DEL C ?ESTO «O. 

T DflREM0 IL CGDICE 


**************** 


**************** 

* AGENDA * 

* TELEFONICA * 

* * 
**************** 


Il programma gestisce un'agenda telefonica computerizzata che vi 
permetterà la ricerca del numero telefonico e dell'indirizzo di o- 
gni soggetto memorizzato in modo semplice e veloce. 


10 REM DMR SOFTWARE 
20 REM *«****«**«*« 

30 REM AGENDA TELEFONICA 
40 REM *!M'**«****««*»*«* 

42 DIM N*<300),T#(500),I*<300) 

43 BV-1 

43 GOSUB10000 : REM LETTURA DATI CASSETTA 
30 REM MENU PRINCIPALE 
53 POKE33280, 3 : P0KE33281,3 : PRINT"3C 

60 PRINTTRBC12)"MENU PRINCIPALE" 

61 PRINTTRBC 12)"1-C 

63 PRINT"«TOPZIONI 

70 FRI NT "Dm IR INSERIMENTO DATI" 

71 PRINT"MM2M AGGIORNAMENTO DATI" 
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73 PRINT"**IG1« RICERCA DATI" 

00 3ET N A»^F fl -R*^""THEN80 BICE C0RR18P0NDENTE F,LLn FUNZIONE SCELTA" 

83 IF A*0"1”AND fl*0"2" ANI A*0"3"THEN 80 
90 PRINT "ITOFUNZIONE SCELTA N. ";A* 

93 FOR T«1TO1000 NEKT 

100 IF A*»"1"THEN 1000 

110 IF A*-''2”THEN 2000 

150 IF A»*”3” THEN 3000 

900 RETI INSERIMENTO DATI 

1000 POKE33280,0 : P0KE33281,0 : PRI NT ".TU" 

J°}? BEI DHTI DR INSERIRE E' A TUA CONOSCENZA ?" 

1011 PRINT RISPONDI S PER SI N PER NO" 

1013 INPUT"»";R* 

1023 IF R*«"S N THEN INPUT"QUANTI SONO "JfUOOTO 1030 
1030 N*300 

1030 PRINT"CFASE DI MEMORIZZAZIONE" 

FRINT-PER INTERROMPERE LA MEMORIZZAZIONE DARE AL PRIMO INPUT"; 

10rl rRINT IL CODICE / IT /H 

1080 INPUT"WmHIPREMI RETURN PER INIZIARE";Vt 

1100 PRINT'TT : FOR V-0 TO N-l 

1103 PRINT"NOME E COGNOME N.";V; 

1110 INPUT NfCV) 

1115 IF N#CV>"IT"THEN OOTO1300 
1120 PRINT"TELEFONO N.";V; 

1130 INPUT T*(V) 

1140 PRINT"INDIRIZZO N.";V; 

1150 INPUTIfCV? 

1180 PRINT "IT 
1130 NEXT V 

1500 PRINT’L’TASE DI MEMORIZZAZIONE SU NASTRO" 

1510 PRINT"«MINSERIRE LA CASSETTA" 

1313 PRINT"FREMERE PLAV E REC " 

1320 PRINT"ATTENDERE QUALCHE MINUTO!": 

1322 REM REGISTRAZIONE DATI 
1330 QPENBV,1,1,"DATA FILE" 

1540 FOR I-0TO 7-1 
1560 PRINT#BV,N*CI> 

1361 PRINT4BV,Tf<I) 

1562 PRINTtBV,IfCI) 

1370 NEXT I:PRINT#BV,"SSS" 

1380 CLQSEBV :BV»1 

1390 PRINT "(Il MEMORIZZAZIONE FINITA" 

1600 FORT* 1TO2000 : NEXT •' GOTO50 

1999 REM RODIORNAMENTO DATI 

2000 PQKE53280,3 : P0KE53281,3 : PRINT "a" 

2020 INPUT X$ SERIRE IL N ° ME E IL COONOriE DEL SOGGETTO DR AOOIORNARE" 

2030 FOR I-0TOH-1 

2040 IF X**N*(I) THEN 2100 

2050 NEXTI 

2060 PRINT"DATO INESISTENTE":FOR T-1TO2000:NEXT:GOTO30 
2100 PRINT "IT 

2110 PRINTNfCI? 

2111 PRINTTfCI) 

2113 PRINTIfCI> 

2120 PRINT"«PREMERE:" 

2122 PRINT-N) PER MODIFICARE IL NOMINATIVO" 

2123 PRINT"T> PER MODIFICARE IL TELEFONO" 

2123 PRINT"I) PER MODIFICARE L'INDIRIZZO" 

2200 GET A* 

2210 IF A»*"N"THEN INPUT"AOOIORNAMENTO";N$CI) :QOTO2800 

2213 IF R$*"T"THEN INPUT"AGGIORNAMENTO"j T*(I>:GOTO2800 

2220 IF R$*"I"THEN INPUT"AGGIORNAMENTO";I*<I):GOTO2800 

2280 GQTO2200 

2800 V*H+l:BV*2:GOTO1500 

3000 REM RICERCA DATI MEMORIZZATI 

3005 POKE33280,6 • P0KE33281,6 ■’ PRINT" W 

3010 PRINT"LA RICERCA PUÒ' ESSERE ESEGUITA PER NOMINATIVO, PER TELEFONO" 
3020 PRINT" E PER INDIRIZZO" 
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TELEFONICO»" 


3030 PRINT"IFREMERE : HO" 

3040 PRINT"N)PER Lfl RICERCA BASATA SUL NOMINATIVO»" 

3041 PRINT"T)PER LA RICERCA BASATA SU RECAPITO 

3042 PRINT"I)PER LA RICERCA BASATA SULL'INDIRIZZO»" 

3050 GET A* 

3052 IF A$*"N"THEN 3100 

3053 IF A*-"T"THEN 3300 

3054 IF A$“"I"THEN 3500 
3060 OOTO3050 

3100 PRINT"d" 

3120 INPUT*X* SERIRE IL N ° ME E IL C0GN0ME DEL SOGGETTO RICERCATO 

3123 FOR >0TO H 

3130 IF X*-NfCI) THEN GOTO3700 

3135 NEXT I 

314® ^ÌK3!!5. RT0 INESISTENTE" =FORT-0TO2000:NEXT:GOTO50 

3300 PRINT'd" 

li® INPUt"x* SERIRE IL rechpito telefonico del soooetto ricercato 

3323 FOR I-0TO H 

3330 IF X$»T$<I> THEN OOTO3700 

3333 NEXT I 

3500 PRINt"°" T ° INESISTENTE":FORT*0TQ2000 : NEXT : OOTO30 

3320 INPUT XÌ! SERIRE L ' INDIRIZZ0 DEL SOGGETTO RICERCATO" 

3325 FOR I-0TO H 

3530 IF X*«It<n THEN GOTO3700 

3535 NEXT I 

3540 PRINT"DATO INESISTENTE";FORT»0TO2000:NEXT : OOTO30 
3700 PRINT"d" 

3710 PRINT"IL DATO RICHIESTO E' STATO TROVATO»» 1 ’ 

3720 PRINTNf(I) 

3721 PRINTTf<I) 

3722 PRINTIfCI) 

3740 PRINT"««PREMI RETURN PER TORNARE AL MENU 
3900 INPUT D$ : OOTO30 
10000 PRINT"dr 

10003 PRINT"SE NON HAI DATI MEMORIZZATI PREMI N 
10006 INPUT"CODICE";D*:IF D**"N"THEN RETURN 
10010 PRINT"INSERIRE NEL REGISTRATORE LA CASSETTA 

10020 PRINT" PLRV" 

10030 OPEN 1,1,0,"DATA FILE" 

10033 FOR H“0TO500 

10040 INPUT#1,N*(H):IF N*<H)*"SSS"TNEN 10100 

10041 INPUTil,Tt(H) 

10042 INPUT#1,I*(H) 

10060 NEXT H 
10100 RETURN 

REACV. 


PRINCIPALE" 

CONTRARIAMENTE RETURN" 
CONTENENTE I DATI E PREMERE 
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**************** 

* SPRITE * 

* IjENERHTOR * 

* * 

**************** 

Un comodo e indispensabile strumento per convertire in codici de¬ 
cimali le figure Sprite da voi disegnate sul video in una matrice 
di 21 x 24 caratteri. 


«REM DMR SOFTWARE 

10 REM CREAZIONE SPRITES 
13 DIN B*(304):DIM N<64) 

20 OOSUB1000 

I? cm 1 TR8TIN0RHHU " 

52 DEF FN C< X > «55306+X fVP40 
55 X-116 'V.-2 
100 OET P* 

105 1F P**"0"THEN 0OTO2000 
110 IF P»*"«"THEN C*1 
115 IF P*-“»'THEN C-0 
120 IF P*»”M"HNDX<139 
130 IF Pf»"ll"HNDX>116 
140 IF P««"»"RN13VCie 
150 IF P*«"n"PNDV>-2 
IS0 POKE FN P<X),160 
165 POKE FN C<X)i1’POKEFN C<X>,2 
170 PRINTFNPCXl'TI" 

500 ÓoTO* 100 HEN TOKE FN Pt *>' 32;p0KE ™ C(X>,0: 

1000 POKE33280.0«P0KE33281 ; 0 ; PRINT"»» 

1003 P0KE53269;0 
1808 GOSUB 10000 
1010 FORI*01020 
1013 PRINT"H"I 
1016 PRINT" 

1020 NEXT 

1021 PRINT" 

1023 PRINT" 

1026 PRINT 


THEN X-X+l 
THEN X-X-l 
THEN V*Y+1 
THEN V-Y-l 


PER INIZIARE" 


1030 PRINTCHRf< 14>" PREMERE -C. irx~ 

1032 GETAf:IF Af*"*" THEN GOTO1056 
1034 GOTO1032 
1036 PRINT-n 
1038 RETURN 

r5^ T " n MEMORIZZAZIONE 

2010 FORI■1TO2000:NEXT 

2021 PRINT" 1 ATTENDERE 0RflzIE " 

2025 C-0-NN»0 1 

2030 FOR1*1070 TO 1870 STEP 40 
2040 FORT*0TO23:PRINT"n RIGA "JNN 

2030 IF PEEK< I+TJ032 THEN B*<C)*”1" 

2031 IF PEEK(I+T>*32 THEN Bf(C>*"0" 

2070 C-C+l 

2090 NEXT T ; NN*NN+1 
2300 NEXT I 

2300 PRINT TT' : TL*0 : V*8 : 0*0 

2301 PRINT"8I I 

25?1 TORlIÓ^ÓsM S?EP8:T?.0 9 5!1 RSIONE BEI NIJ " ERI DRBINBRI ° b DEClmLE«TOHr 
2511 IF 1*304 THENGOTO2700 
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2330 FORT-1 TO 1+7 : PRINT",XDNTATORE "H 
2340 TL»TL+VflL<B$(T))*2t<V-I> 

2543 V-V-l 
2600 NEXT 

2610 NCO)**TL : 0"0+l 
2680 NEXT 
2700 PRINT".T 
2703 PRINT"»»®»»»»" 

2710 PRINT" » SIRI VISURLIZZRZIONE 3PRITE" 

2720 PRINT"» ■ S2U MEMORIZZRZRIONE DATI 
2730 PRINT"» ■ *358 STAMPA DATI" 

2733 PRINT"» R H45I MODIFICA SPRITE 

2736 PRINT"» R 0C5X VISUALIZZAZIONE DATI SU VIDEO" 

2740 PRINT"marraniNSERIRE IL CODICE DELLA FUNZIONE SCELTA" 

2742 PRINT'TM-~---.. 

2780 INPUT"n";C 

2783 IF C<0 OR 05 THEN OOTO2780 

2790 ON C GOTO 3000.4000;3000;6000;7000 

3000 V-33248 ^ FORI«0TO62:P0KE832+1 ; 0 :NEXT 

3010 POKEV+21,1 :POKE 2340,13 

3020 FORI-0TO62 

3040 POKE 832+1, NCI ) 

3030 NEXT 
3060 POKEV+39;7 

3070 POKE V+1,60 :POKEV+16,0:POKEV,133 
3080 OOTO2700 
4000 PRINT'TJ" 

4010 PRINT"MEMORIZZRZIONE SU NRSTRO" 

4020 PRINT:PRINT 

4030 INPUT"DAI IL NOME RL ->L"*";VÌ 

4050 PRINT"KMORfl SI MEMORIZZA IL ";V$ 

4060 QPEN1/1,1,V* 

4070 FORI -0TO62 
4080 PRINTR1, NC I ) 

4090 NEXTI:CLOSEl 

4100 PRINT"MEMORIZZRZIONE FINITA" 

4200 FORICITO3000:NEXT•QOTO2700 

5000 REM STAMPA 

5010 PRINT"IT : P0KE33269, 0 

o^ N Il*? CENDI Lfl STAMPANTE E QUANDO SEI PRONTOPREMI UN TASTO" 
3030 OET Af : IF AtO" "THEN OOTO3050 
3040 OOTO5030 
5050 OPEN 1,4 
3060 FOR I-0TO64 
5070 PRINT#1,NCI 
3080 NEXT: 

3082 PRINTR1 ■' CLOSE 1 
3090 GOTO2700 
6000 OOSUB1000 

6010 V"~2 : X*116 :C"0 : P0KE53269,0 

6020 FORI-0TO20 

6030 FOR T-0TO23 

6033 IF X"I40 THEN X-116:V«V+1 

6040 IF BiCO-U" THEN POKE FN PCX), 160'• POKE FN OCX),3 

6050 X*X+1:C*C+1 

6080 NEXT 

6090 NEXT 

6100 GQT033 

7000 PRINT"3" 

7003 FOR I-0TO62 
7010 PRINT NCI), 

7020 NEXT: PRINT 

7030 PRINT "»PREMI UN TASTO PER CONTINUARE" 

7030 OET Ri :IF R$<>""THEN OOTO2700 
7060 GOTO7050 

10000 PRINT"mi ASTI DR UTILIZZARE" 

10003 PRINT"ltHMr 

10010 PRINT"TRSTO -1 RTTIVA IL CURSORE PER DISEGNARE 
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print"tasto -2 permette di cancellare i trattierrati e di sporthpf ». 

10023 PRINT"IL CURSORE SENZA DISEONRRE SUE VIDEO" 8 0STHRE ' 

10030 PRINVOTASTO —7+# k—l (_J0) DA IL VIR RLLfl MEMORI77R7TOWF potiti » • 

10040 prJnt-X™ DI «l-DISEOW OENERATO" — 30TT0 ' 

RRmT " a premi un TASTO PER CONTINUARE" 

10030 OET A*IF A*0”"THEN 10070 
I005S DOTO10030 

10070 PRINT"n PREMI UN TASTO PER CONTINUARE" : PORTAITO300 ; NEXT:PRINT"71" : RETURN 
READV. 


*mm**M*MMm 


* GESTIONE * 

* APPUNTAMENTI * 

* * 
♦♦♦******♦****** 


Il programma permette di memorizzare e gestire i vostri appunta 
menti di mese in mese con possibilità di continui aggiornamenti 


10 REM *DMR SOFTWARE* 

11 REM ***RUBRICA APPUNTAMENTI*** 

20 DIM A*<31,13) REM MATRICE DATI 
30 GOSUB 23000:REM RICHIAMO DATI 
30 OOSUBI0000 REM MENU 

100 REM GOSUB TEMPORIZZATORE 
120 FOR T-1TO2000NEXTRETURN 
1000 REM AGGIORNAMENTO 
1020 PRINT”H" 

1033 RJÌSrag.VgoffilS^ ° I0RN0 W AGGIORNARE' 1 

1036 PRINT"ERRORE : DATO ILLOGICO" 

1040 INPUT D ; IF D<1 OR D>31 THEN 1038 

u R Ì N Io*H NTR0LL0 DEL GI0RN0 "JD^C.II. " : OOSUBI00 
1033 H"8 ; PRINT rX)RE" •' FOR I-0TO14 
1060 PRINTH;TAB<5);At(D-l,I):H-H+l 
1070 NEXT 

! 0 ®? ?5IuT'itì SERIRE 0RR DH PUOIornare 0 MODIFICARE" 

1 NrUI HH 

1095 PrÌw*®" IF HH<0ORHH>1 ‘' THEN PPINT-ERRORE: DATO ILLOOICO" :OOSUB100:OOTOI033 

ììl3 INPUt"Ì*- RII,E LH TOTfl RER IL ^ORNO" j D : PRINT"ALLE ORE ";HH*8 
1120 Hf<D-l*HH)*N» 

1130 PRINT"VISUALIZZAZIONE RODIORNATA" 

!} jg RR ; NT "ORE " : H-8 : FOR I *0TO14 : PRINTH ; TRB < 5 ) ; fl* < JJ-1 , I ) : H«H+1 : NEXT 
Wao ddJutnmb^^^ MEMORIZZARE I DATI CON AGGI ORNAMENTO" 

!!£ ™o N IS TTERE - n PER T0RNflRE HL 

2000 STOP 
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3000 

3020 
3040 
3030 
3033 
3038 
3060 
3090 
3100 

3000 

3001 
3010 
5020 

3021 
3030 
5040 
3060 
3080 
3300 

3310 

3311 

5320 

5321 
5323 
3330 
5332 
3340 
5380 
3400 


PRI NT " raiENOR I ZZAZ IONE" 

PRINT"JBINSERIRE LR CASSETTA" 

OPENM.l, "DATA" 

FORI-0TO31 
FORO-0TO14 
PRINT#1/Af<I , 0? 

NEXTQiNEXTI 

PRINT"MEMORIZZAZIONE FINITA":QOSUB100 
CL0SE1: DOTO10000 
PRI NT" ri" 


PRINT"(PER LA VISUALIZZRZIONE DI PIU' OIORNI 
PRINT"INSERIRE IL GIORNO DA ESAMINARE DEL 
INPUTDf : IF D*-"T"THEN 5300 
PRI NT "1X31 ORNO ";D*:pRINT"ORE" 

D*VAL<Df)“l : H»8 : FORI*0TO14 
PRINTH;TAB<5)A$(D,I)=H-H+1 
NEXT 

PRINT"BRTTERE -“I PER TORNARE AL V/V 
PRINT"niNSERIRE L'INTERVALLO DI TEMPO DA 
PRINT—S;BATTENDO PRIMA 2 E POI 10 I OIORNI 
PRINT" AL 10" 


BATTERE 

C.IT 


INPUT 0* • GOTO10000 
VISUALIZZARE" 

VISUALIZZATI ANDRANNO DAL 2" 


INPUT-GIORNO DI PARTENZA" ; Gl : IFGK0ORO1>31 THEN 3320 
INPUT"GIORNO D'RRRIVQ";G2 ; IF G2<0OR 02>310RG2<G1THEN3321 
F0RI-G1-1 TO' 02-1 ; H=8 : PRINT"IDRE GIORNO ";I+1 

FORJ*0TO14 

PRINTH;TAB(5)A$<I,J):H-H+1 

NEXT'INPUT"BATTERE ~“| PER CONTINUARE"JE» 

NEXT'GOTO10000 
STOP 


10000 POKE33280,6 :P0KE33281< 6 :PRINT" n«" CHR*(14 > 

10010 PRINTTABC17>" V/ t" 

10011 PRINTTAB07)"-" 

10020 PRINT"KW" 

10030 PRINV'CODICE.FUNZIONE" 

10032 PRINT"-——-•• 

10035 PRINT"KS1® tOGIORNAMENTO" 

10036 PRINT"»®! sEMORIZZRZIONE DATI" 

10037 PRINT" M3E35 /TENZA" 

10038 PRINT"»-—— 


10040 PRINT"OTFER LR FUNZIONE SCELTA BATTERE IL CODICECORRISPONDENTE" 

10042 OET Af : IFAt*""THEN10042 

10052 IF Af*"l"THEN 1000 

10055 IF RS*"2"THEN 3000 

10060 IF A*»"3"THEN 5000 

10090 GOTO10042 


25000 PRINT"niNSERIRE LR CASSETTA CONTENENTE I DATI" 
25003 0PEN2*1*0;"DATA" 

23010 FORI-0TO31 
25020 FORJ-0TO14 
25030 INPUT#2,R*<I,J> 

23040 NEXT:NEXT:CL0SE2: RETURN 


READY. 


mmmmwmmm 
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* classifica * 

* CALCIATORI * 

* SERIE FI * 

**!m*$***!ME$*$* 


Un semplice e funzionale programma che vi permetterà di memorizzare 
e richiamare la classifica delle squadre di serie A. 

Inserendo i risultati delle varie partite la classifica si aggiorne 
rà automaticamente e sarà così memorizzata. 


I OPENIM^CMDI ;PRINT"DNR SOFTWARE" : LIST 

10 REM «#**«**#*1**» 

II REM DMR SOFTWARE 

12 REM 

13 DIMCf<16) : DIMP(16) : DIMH<16) 

16 DIM SS(16/2) : DIMRX16) 

18 OO8UB20000 
20 PRINT"»n " 

22 POKE33280/0 ; P0KE33281>0 

25 PQKE53272/23 

26 PRINT"~X- SOFTWARE" 

28 PRINTTRB< 13? ; "IRN “ / f " 

30 F0R1"1TQ12 ; PRINTTAB<5>/" DB 

32 PRINT "nomini' 1 

33 PRINT" 0M11 INSERIMENTO RISULTATI" 


36 PRINT 

38 PRINT" 

39 PRINT : PRINT" 

40 PR*I NT '■ 


BEI 


STAMPA CLASSIFICA" 

«3B CARICAMENTO DATI" 

PRINT" OKfl REGISTRAZIONE DATI" 

41 pr i nt" wmmntmmkpREMi il numero corrispondente alla 

42 INPUT"KWIMMETTI IL CODICE E PREMI _H t-S" jS 

43 IFS>40RS<1THEN100 
30 OOTO200 

110 FORI*1TO1000 ; NEXT : OOTO20 % ' f 

200 IFS»1THEN1000 

201 IFS-3THEN20000 
203 IF3“4THEN30000 
220 GOTO2000 

1000 PRINT"3" 

1001 P0KE53281/0 : PRINT"k" 

1010 INPUT"NUMERO COMPLESSIVO PARITE GIOCATE";P 

1022 PRINT'TW" 

1023 CO=CO+l:IFCO>PTHEN1230 

1030 INPUT"1) SQUADRA ";SIf 

1031 GOSUB9000 

1032 INPUT"2) SQUADRA ";S2* 

1033 GOSUB9000 

1033 INPUT"RISULTATO<1/2/t) ";R$<CO) 

1036 PRINT 

1040 S*(CO/l)=Sl* ; Sf(C0/2)«S2*:Sl*«" ":S2f*" " : 

1043 GOTO1025 

Ì250 DIM D(P/2) : FOR I-1TOP 

1253 IF Rf<I) = " 1"THEN D(I/1>*2 

1260 IF Rf < I)*"2"THEN D(I/2)»2 

1265 IF Rf(I)e"X"THEN D<I/1)<=1 D<I/2>“1 

1270 NEXT 

1300 F0RI“1TQ16 

1301 FORO*1TOP 

1303 IFCf ( I >*Sf (0/ DTHENPCI )=P( I >+D(G/1) 

1306 IFCf(I)*Sf(G/2)THENP(I>*P<I)+D(G/2) 

1400 NEXT 


FUNZIONE SCELTA" 
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1300 NEXT 
1310 GOTQZ0 

2000 PRINT"H" : OPENt,4:CMD1 

2010 PRINT"ATTENDERE QURLCHE SECONDO" 

2020 FORI"ITO16 : H(I}»P(I):NEXT 
2060 L-16 
2070 L«INT<L/2> 

2080 IFL»0THEN2186 
2090 FQRJ*1T016-L 
2100 I-J 

2110 IFPCI?>*P<I+L)THEN 2170 
2120 C*P(I) 

2130 P<I)*P<I+L) 

2140 P<I+L)»C 
2130 I-I-L 

2160 IF I>"1THEN2110 
2170 NEXT 
2180 GOTO2070 

2186 PRINT"rjÌÌMPIDHH_flSSIFICR GENERALE SERIE *" 

2187 F0KE33281,6 ' PRINT" al" 

2188 PRINT" —SQURDRE.. piintt 11 : odtut 

2189 F0RJ»1TQ16 

2190 FOR X-1T016 

2193 ”" ;C * < ' X>;TR ® <: 30)P<J) : H(X)*0 : 

2500 NEXT: INPUT"PREMI -T\ PER RITORNARE RL \ - / <" ;WS : GOTO20 
9000 FORO™ITO16 
9010 REBDC* 

9015 IFCf=S1S0RCS*S2STHENREST0RE ; RETURN 
9020 NEXTGESTORE 

9030 PRINT"NOME INESISTEMTE": FORT»1TO1500 :NEXT: GOTO1030 
oj5215 I?? 1N0 * JUVENTUS ' MILAN,LRZI0,ROMA,NRPOLI,RVELLINO,FIORENTINR 
9110 DATA PI.:>R, CATANIA, A3C0LI, GENOA, SRMPBQRIA, UDINESE /VERONA/ INTER 
10010 INPUT"SQURDRfl"j CS <I) 

10020 INPUT’’PUNTI";P<;i) 

10030 NEXT:RETURN 

20000 REM CARICAMENTO DATI 

20001 PRINT'Tl_______■' 

20082 PRINT"IMMETTI Lfl CRSSETTR CONTENENTE I DRTI" 

20003 PRINT"E PREMI gnu* [■ CREGISTRRTOPE)" 

20005 PRINT"___ 


20010 PRINT"NWMLETTURfl DATI" “ " 

20015 QPEN1,1,0,"DATA FILE” 

20018 F0RI-1T016 
20020 INPUT#1,CS<I) 

20030 NEXT I :CLOSE1 

20050 PRINT"PRIMA SERIE CARICRTA" 

20053 PRINT "LETTURA SECONDA SERIE" 

20060 FORT»1TO2000 : NEXT 
20062 OPEN1,1,0,"DATA FILE 2" 

20070 F0RI-1T016 
20073 INPUT#1,PCI) 

20080 NEXTI : CLOSE 1 

20082 PRINT ’TLETTURA DATI TERMINATA" 

20090 FORI» 1TO2000:NEXT:GOTO20 

30000 PRINT"13 REGISTRAZIONE DATI INSERITI" 

30003 PRINT"MWTOSPREMI STl_t 

30010 PRINT"^ATTENDERE QUALCHE MINUTO" : PRINT"! 

30011 OPEN1,1,1,"DATA FILE" 

30020 FGRI»1T016 

30022 PRINT#1,CS<I> 

30033 NEXT I : CLOSE 1 

30040 OPEN1,1,1,"DATA FILE 2" 

30044 FORI -1T016 
30053 PRINT#1,P<I> 

30066 NEXTI:CLOSE 1 

30070 PRINT "."REGI STRAZI ONE FINITA" 

30080 FORI “1TQ2000 : NEXTI : GOTO20 


READV. 
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**************** 

* calcolo * 

* EQUO CANONE * 

* * 
**************** 


Un utile programma che vi permetterà di effettuare il calcolo del¬ 
l'equo canone in modo semplice ma soprattutto esatto, senza ricorre 
re al costoso commercialista. 


10 REM a#***#####*»##*##**## 

12 REM ^CALCOLO EQUO CANONE# 

14 REM * BMR SOFTWARE * 

16 REM ««a#*#*###*#*######## 

100 REM PREPARAZIONE VETTORI 
105 DIM A*<8,2> 

110 F0RI=1T08 
120 READ Q*,V$ 

125 At<I,1>=Q$:Af<I,2)*Vf 
128 NEXT I 

130 DATASIGNORILE,2.08,CIVILE,1.25,ECONOMICO,1.03,POPOLARE,0.80,ULTRAPOPOLARE 

131 DATA0.60,RURALE,0.60,VILLINI,1.40,TIPICHE DEI LUOGHI,0.80 
135 DIM B*<6,2> 

140 F0RI*1T06 

145 READ Q*,Vf 

150 B*<1,1 ?*»Qf '■ Bf<1,2)"Vt 

152 NEXTI 

155 DATA400000,1.2,250000,1.1,100000,1.05,50000,0.95,10000,0.90,3000,0.80 
160 DIM C#<3,2> 

162 F0RI=1T05 

165 READ Q *,Vt 

166 C*<I, 1 )=*«$:CfCI,2>*V* 

170 NEXT I 

171 DATAZONA AGRICOLA,0.85,ZONA EDIFICATA PERIFERICA,1 

172 DATAZONA ED.CENTRO PERIFERICA,1.20,ZONA PREGIATA AGRICOLA 0 PERIFERICA,1.20 

173 DATACENTRO STORICO,1.30 
175 DIM Df<4,2? 

180 F0RI«1T04 
183 READ Qf,V$ 

185 D*<I,1)bQ*:D*CI,2)«V* 

188 NEXT I 

189 DATAZONA AGRICOLA,0.85,CENTRO STORICO,1.1,CENTRO EDIFICATO,1 

190 DATAEDIFICI DEGRADATI SITI NON IH ZONE AGRICOLE,0.90 

191 DIME*<6,2) 

192 F0RI=1T06 

193 READ Q*,V* 

195 E$(Ii n»Q|:E«I,2)*VI 

196 NEXTI 

197 DATRPIANO SEMINTERRATO,0.80,PIANO TERRA,0.90,PIANI INTERMEDI E ULTIMO,1 

198 DATAPIANO ATTICO,1.2,4 PIANO E SUPERIORI SENZA ASCENSORE,0.95 

199 DATAPIANO ATTICO SENZA ASCENSORE,1.1 

200 DIM F(46,2) : D=0.01 : C=1 
210 FORI=5TO20 

222 F<I~4,1)=I : F<1-4,2)=C 
230 C=C-D 

235 NEXT I 

236 0=0.845 
240 FORI=21TO50 

242 F(I-4,1)=I : FO—4,2)*C 
244 C=C-0.005 
250 NEXT I 
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255 DIM0*(3.2) 

256 FORISIT03 

260 READ Q*.V$ 

261 G$<I>1)“Q* : G*<I.2)*V* 

265 NEXT I 

266 DATANORMALE.1,MEDIOCRE>0.80.SCADENTE>0.60 
270 Diti H*<2.2> 

272 F0RI=1TQ2 

275 RERD Gf.V* 

276 H$(I> 

280 NEXT I 

281 DRTfl CENTRO NORD.250000.MERIDIONE.225000 

300 REM m#*»m##*****#*lM<* 

310 REM INTRODUZIONE DATI 

311 REM **#**m#****##*##*** 

315 DIM C ( 8 ) : NN*1 

320 PRINT"U":POKE53280.0:P0KE53281.0 : 

322 FRINT"^INTRODURRE IL CODICE CORRISPONDENTE RL 

323 PRI NT " .WTIPOLOOIAB" 

325 F0RI=1T08 

326 PRINTI..R$<I.n 

327 NEXT 

323 INPUT’'CnDICE";C'- IFO8ORC<0THEN323 
323 X*=R*<C/2) 

330 GOSUB5000 

331 PRI NT'TELASSE DEMOGRAFICfì DEI COMUNI»»" 

335 FOP1*1T06 

336 PRINTI."OLTRE "Bf<I.1); TAB<25)"ABITANTr' 

337 NEXT 

333 IMPUT"CODICE" j C : IFO6ORC<0THEN338 

339 X*=B$<C>2) 

340 GOSUB5000 

341 PR I NT " I3UBICRZ10NEM8" 

342 FRINT"COMUNE OLTRE 20000 RBITANTI?” 

343 INPUT"PREMI 'S'PER SI 'N' PER NO"iR* 

344 IF R*«"H"THEN370 

345 F0RI=1T05 

346 PRIHTI" "C$<I.1> 

347 NEXT 

348 INPUT":«!CODICE M ;C: IFC>5ORC<0THEN348 

349 X$=C$(C> 2) 

350 GOSUB5000 
355 GGTO390 

370 REM ♦###**#* 

375 F0RI a lT03 

376 PRINTI" "D$<I>1) 

377 NEXT 

378 INPUT"JtCODICE";C : IFO3ORCC0THEN378 

379 X$=Dt<C"> 2': 

380 GO3UB5000 

390 REM **»*#*»* 

391 FRI NT" OLIVELLO DI PI ANOMO" 

395 F0RI*1T06 

396 PRINT1 11 "Et<1.1 ) 

397 NEXT 

398 INPUT" *CODI CE";C•IFC>6ORC<0THEN398 

399 X**Et<C>2) 

400 GOSUB5000 

410 PRINT'TJRNNI TRASCORSI DRLLR COSTRUZIONE 
412 PRINT"MINIMO 5 ANNI" 

420 FRINT"SE SUPERIORE fi 50 ANNI BATTERE 50" 

422 INPUT "MORNNI’SC 

423 C=C-4:C<NN)»FCC> 2) : NN*NN+1 

430 PRINT'TrONSERVHZIONE MANUTENZIONE.»»" 

433 F0RI=1T03 

435 FRINTI.>G*<I>1) 

436 NEXT I 

438 INPUT"SCODICE";C : IFC>3GRC<0THEN438 


CASO PROPIO" 


<VETUSTA')" 
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CONOSCENZA" 


: A VERDE IN MISU RA CORRISPONDENTE ALLA QUOTA” 


439 X*=0*<C,2> 

440 GOSUB5000 

500 REM #**CALC0L0 SUPERFICIE CONV.*** 

501 PRINT'TXA SUPERFICIE CONVENZIONALE E' A TUA 

502 PRINT"BATTI 'S' PER SI 'YV PER NO" 

503 INPUTRf : IF R*="S"THEN INPUT" VALORE ";X.'GOTO 601 
j10 PRINT'3INSERIRE I VALORI CORRISPONDENTI" 

J22 ^JNT"PER GLI ELEMENTI NON POSSEDUTI BATTERE '0'( ZERO>" 

5^1 INPUT^SUPERFICIE APPARTOMENTO<ESCLUSO BALCONE)" 

533 INPUT"SUPERFICIE BOX";Z 

534 IF Z=0THEN 540 

535 Z=Z/2 
538 X=X+Z 

540 INPUT"SUPERFICIE POSTO MACCHINA";Z 

541 IF Z=0THEN 545 

542 Z=Z*20/100 

543 X*X+Z 

545 PRI NT "SUPERFICIE CONDOMINIALE .. _, w _ lltww nr> Wl 

546 PRI NT " MILLESI MALE DELL''UNITA' IMMOBILIARE" : INPUT Z 

547 IF Z=0THEN 560 
550 Z=Z*10/100 
555 X«X+Z 

PR ™I : SUPERFIC IE d EI VANI CON ALTEZZA INFERIO RE A M 1.70” 
562 INPUT Z 

565 IF Z=0THEN570 

566 Z=Z*30/100 
568 X=X-Z 

570 INPUT"SUPERFICIE BALCONI,TERRAZZE,CANTINE”;Z 

571 IF Z=0THEN600 
575 Z«Z*25/100 
577 X=X+Z 

600 PRINT"3" 

601 C(NN)=X ; NN*NN+1 

610 PRINT"SCOSTO BASEWB" 

620 PRINT 1,,H#<1,1) 

622 PRINT 2,,H#<2,1) 

625 INPUT"JCODICE";C ; IF O2ORCC0THEN625 

626 X$»H$<C,2) 

630 GOSUB5000 

1000 REM #***#*#******#### 

1010 REM CALCOLO E.C. 

1011 REM *****♦*.♦♦*****##* 

1015 X=1 

1020 F0RI=1T08 
1025 X=C(I)*X 
1030 NEXT I 
1050 PRINT"3" 

1060 PPINT "VALORE CONVENZIONALE ";X 
1070 PRINT "EQUO CANONE ANNUALE ";X*3.85/100 
1075 PRINT "EQUO CANONE MENSILE ”;<X*3.85/100)/12 
4000 END 

5000 REM *#**#SOTTOPROGRRMMA MEMO****** 

5001 C ( NN)=VAL < X*):NN=NN+1 

5002 RETURN 

RERDV. 
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CORSO DI PROGRAMMAZIONE 

BASIC 


PER STUDENTI 

Verrà svolto il seguente programma: 

1) INTRODUZIONE ALLA STRUTTURA DEGLI ELABORATORI 

2) INTRODUZIONE ALLA PROGRAMMAZIONE 

3) STUDIO DEL LINGUAGGIO BASIC 

4) APPLICAZIONE CON L'USO DELLA MEMORIA 

5) STUDIO ED APPLICAZIONE SULL’USO DELLA STAMPANTE 

6) APPLICAZIONI IN CASA, NELLA SCUOLA, NEL LAVORO 

Per le esercitazioni verranno usati calcolatori Commodore 


PREZZO: L. 40.000 


in sede e per corrispondenza 


Per informazioni ed iscrizioni telefonare nei giorni feriali a: 


I.B.N. Via Pavia, 22 — TEL. 


4959306 



Bomber 

Generatore Istogrammi per MPS 801 
Traduttore Morse 
Equivalenze 
Fattoriale 
Die^a 

• vi#.. 

Equazioni I grado^ 8 ^ 

Equazioni II grado 
Potenza di un binomio 
Attivatore tasti funzione 
Controllo Codice Fiscale 
Caratteri MPS 801 
Slot Machine 
Generatore etichette 
Contabilità casalinga 
Space mission 
Lavagna grafica 
Gestione biblioteca 
Agenda telefonica 
Sprite generator 
Gestione appuntamenti 
Classifica calciatori Se 
Calcolo equo canone 






■imm 


una raccolta di pro> 
gestionali, dì gii 
..chi vuole li 


Vi,n?a ,te' f T,a ti c i, 
pet;,o r n'i ve.ttì;rsi e 

c,on- r.|èc: .2p- ;6f » 



L. 6.000 





